home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / altqb553.zip / DEMON.BAS < prev    next >
BASIC Source File  |  1993-05-08  |  89KB  |  2,199 lines
  1. ' DEMON.BAS     this program illustrates some of the ways that the routines
  2. '               provided in the Libraries in this package, can enhance your
  3. '               Extended QuickBASIC programs.
  4. '
  5. '   Author:     Christy Gemmell
  6. '   For:        Assembly-Language Toolbox for QuickBASIC
  7. '   Version:    5.53
  8. '   Date:       14/3/1993
  9. '
  10. '   For MicroSoft QuickBASIC 4.5, BASIC 7 PDS and Visual BASIC for DOS.
  11. '   Assembler routines created with MicroSoft Macro Assembler MASM 6.0
  12. '
  13. '   Compile:    BC /E/Fs/O/S/X demon;
  14. '   Link:       Link /E/F demon,,,altquick.lib;
  15. '   QB:         QB demon.bas /L altquick.qlb
  16. '
  17. '   $DYNAMIC                             ' required for stringsort routine
  18. '
  19. '┌────────────────────────────────────────────────────────────────────────┐
  20. '│      External Functions and Procedures.                                │
  21. '└────────────────────────────────────────────────────────────────────────┘
  22. '
  23. '   The following prototypes refer to assembly-language procedures which
  24. '   are in the library files TOOLBOX.LIB and TOOLBOX.QLB. One or other of
  25. '   these libraries must be linked to the program which calls them.
  26. '
  27.     DECLARE FUNCTION Attribute% (BYVAL Fore%, BYVAL Back%)
  28.     DECLARE FUNCTION CapsLock% (BYVAL Switch%)
  29.     DECLARE FUNCTION Cpu% ()
  30.     DECLARE FUNCTION EmsError% ()
  31.     DECLARE FUNCTION EmsFrame% ()
  32.     DECLARE FUNCTION EmsOwned% (BYVAL Handle%)
  33.     DECLARE FUNCTION EmsPages% (BYVAL Switch%)
  34.     DECLARE FUNCTION EmsPresent% ()
  35.     DECLARE FUNCTION EmsVersion% ()
  36.     DECLARE FUNCTION FarPeek% (BYVAL Segment&, BYVAL OffSet&)
  37.     DECLARE FUNCTION FreeSpace& (BYVAL DriveNo%)
  38.     DECLARE FUNCTION KeyFlags% ()
  39.     DECLARE FUNCTION KeyIn% ()
  40.     DECLARE FUNCTION KeyStat% ()
  41.     DECLARE FUNCTION MathsChip% ()
  42.     DECLARE FUNCTION MouseInit% ()
  43.     DECLARE FUNCTION NumLock% (BYVAL Switch%)
  44.     DECLARE FUNCTION PeekWord& (BYVAL Segment&, BYVAL OffSet&)
  45.     DECLARE FUNCTION PrinTest% (BYVAL Printer%)
  46.     DECLARE FUNCTION Rand% (BYVAL Lower%, BYVAL Higher%)
  47.     DECLARE FUNCTION ScrLock% (BYVAL Switch%)
  48.     DECLARE FUNCTION FileSize& (FileSpec$)
  49.     DECLARE FUNCTION StatusLine% (Message$)
  50.     DECLARE FUNCTION StringScan% (Trgt$, BYVAL Size%, BYVAL Strt%, BYVAL Addr%)
  51.     DECLARE FUNCTION Verify% (BYVAL Default%, BYVAL Row%, Prompt$,_
  52.                               BYVAL Attr%, BYVAL Mouse%)
  53.     DECLARE SUB BackFill (BYVAL Row%, BYVAL Col%, BYVAL Rows%, BYVAL Cols%,_
  54.                           BYVAL Attr%)
  55.     DECLARE SUB Cipher (Text$, KeyWord$)
  56.     DECLARE SUB ClearEnd (BYVAL Switch%, BYVAL Attr%)
  57.     DECLARE SUB Curtains (BYVAL Speed%, BYVAL Attr%)
  58.     DECLARE SUB DOSBox (BYVAL Switch%, BYVAL Y1%, BYVAL X1%, BYVAL Y2%,_
  59.                         BYVAL X2%, BYVAL Attr%)
  60.     DECLARE SUB EmsGet (BYVAL Segment%, BYVAL OffSet%, BYVAL Length%,_
  61.                         BYVAL Page%, BYVAL Handle%, Done%)
  62.     DECLARE SUB EmsPut (BYVAL Segment%, BYVAL OffSet%, BYVAL Length%,_
  63.                         BYVAL Page%, BYVAL Handle%, Done%)
  64.     DECLARE SUB EmsRelease (BYVAL Handle%)
  65.     DECLARE SUB EmsRequest (BYVAL Pages%, Handle%)
  66.     DECLARE SUB FastPrint (BYVAL Row%, BYVAL Col%, Message$, BYVAL Attr%)
  67.     DECLARE SUB GraPrint (BYVAL xLoc%, BYVAL yLoc%, Text$, BYVAL Attr%,_
  68.                           BYVAL Scale%)
  69.     DECLARE SUB HelpMate (BYVAL Colour%, Title$, BYVAL Context%, Topic$)
  70.     DECLARE SUB KeyFlush ()
  71.     DECLARE SUB MisTake (BYVAL Row%, Message$, BYVAL Attr%, BYVAL Mouse%)
  72.     DECLARE SUB MouseHide ()
  73.     DECLARE SUB MouseNow (LeftButton%, RightButton%, xMouse%, yMouse%)
  74.     DECLARE SUB MouseShow ()
  75.     DECLARE SUB Pause (BYVAL Ticks%)
  76.     DECLARE SUB PerCentBox (BYVAL Switch%, Message$, BYVAL Attr%,_
  77.                             BYVAL PerCent%)
  78.     DECLARE SUB PopUp (BYVAL Row%, BYVAL Col%, BYVAL Hght%, BYVAL Wdth%,_
  79.                        BYVAL Attr%, BYVAL Brdr%, BYVAL Shdw%, BYVAL Zoom%)
  80.     DECLARE SUB PrintSet (BYVAL Row%, BYVAL Col%, BYVAL Attr%,_
  81.                           BYVAL Printer%, BYVAL Mouse%)
  82.     DECLARE SUB ReSeed (BYVAL Seed&)
  83.     DECLARE SUB Scroll (BYVAL Dir%, BYVAL Y1%, BYVAL X1%, BYVAL Y2%,_
  84.                         BYVAL X2%, BYVAL Units%, BYVAL Attr%)
  85.     DECLARE SUB ShutUp (BYVAL Speed%)
  86.     DECLARE SUB StringSort (BYVAL Dir%, BYVAL Size%, BYVAL Addr%)
  87.     DECLARE SUB VGALoad (File$)
  88.     DECLARE SUB VGAPan (BYVAL X%, BYVAL Y%)
  89.     DECLARE SUB VGASave (File$)
  90.  
  91. '   These are native QuickBASIC procedures which are in MIXED.LIB/QLB
  92. '
  93.     DECLARE FUNCTION BinDec& (Binary$)
  94.     DECLARE FUNCTION BitTest% (Number%, Bit%)
  95.     DECLARE FUNCTION DateInput$ (Default$, Context%, Topic$, HotKey%)
  96.     DECLARE FUNCTION DosVersion$ ()
  97.     DECLARE FUNCTION FindFile$ (FileSpec$, Attr%, Mouse%)
  98.     DECLARE FUNCTION GetFlag% (Flag%)
  99.     DECLARE FUNCTION GrAttrib% (ForeGround%, BackGround%)
  100.     DECLARE FUNCTION IsDir% (Test$)
  101.     DECLARE FUNCTION LongDate$ (Day%, Month%, Year%)
  102.     DECLARE FUNCTION RevInput$ (Max%, Visible%, Default$, Legal$, Ctx%,_
  103.                                 Topic$, Mask%, HotKey%)
  104.     DECLARE SUB BarMenu (P1%, P2%, P3%, Menu$(), P5%, P6%, P7%,_
  105.                          P8$, Mouse%, HotKeys%)
  106.     DECLARE SUB CheckPrinter (Printer%)
  107.     DECLARE SUB Panel (Row%, Col%, Rows%, Cols%, Border%, Attr%)
  108.     DECLARE SUB SetFlag (Flag%, Setting%)
  109.     DECLARE SUB SortFile (PathName$, OffSet%, FieldLen%, RecordLen%, Done%)
  110.     DECLARE SUB VerMenu (P1%, P2%, P3%, P4%, P5%, P6$, Menu$(), P8%, P9%,_
  111.                          P10%, P11%, P12$, Mouse%, HotKeys%)
  112.     DECLARE SUB VideoMode (Colour%, MaxRes%, VideoRam%)
  113.  
  114. '   Local, program-specific, functions and procedures.
  115. '
  116.     DECLARE SUB Frame (Title$, Switch%)
  117.  
  118. '┌────────────────────────────────────────────────────────────────────────┐
  119. '│      Initialisation.                                                   │
  120. '└────────────────────────────────────────────────────────────────────────┘
  121. '
  122.     CONST FALSE = 0, TRUE = NOT FALSE
  123.  
  124. '   Allow plenty of stack space for function and procedure calls.
  125. '
  126.     CLEAR , , &H2000
  127.  
  128. '   Establish error trapping and point to error handler.
  129. '
  130.     ON ERROR GOTO Trap
  131.  
  132. '   Check video capabilities of the host system (default to MDA).
  133. '
  134.     Colour% = FALSE                             ' Default to monochrome
  135.     MaxRes% = 0                                 ' Default to text only
  136.     VideoRam% = 4                               ' Default to 4K buffer
  137.  
  138.     VideoMode Colour%, MaxRes%, VideoRam%       ' Find what's installed
  139.  
  140. '   Set display colours for colour and monochrome displays.
  141. '
  142.     IF Colour% THEN
  143.        BarColour% = 48                          ' Black on Cyan
  144.        HeadColour% = 31                         ' Bright White on Blue
  145.        StatColour% = 48                         ' Black on Cyan
  146.        TextColour% = 112                        ' Black on White
  147.     ELSE
  148.        BarColour% = 112                         ' Reverse video
  149.        HeadColour% = 15                         ' Intense White on Black
  150.        StatColour% = 112                        ' Reverse video
  151.        TextColour% = 7                          ' White on Black
  152.     END IF
  153.  
  154. '   Check the type of display adaptor installed.
  155. '
  156.     SELECT CASE MaxRes%
  157.         CASE 13
  158.              IF VideoRam% = 64 THEN
  159.                 Adaptor$ = "Multi-Colour Graphics Array"
  160.              ELSE
  161.                 Adaptor$ = "Video Graphics Array"
  162.              END IF
  163.         CASE 7 TO 10
  164.              Adaptor$ = "Enhanced Graphics Adaptor"
  165.         CASE 3
  166.              Adaptor$ = "Hercules Graphics Card"
  167.         CASE 2
  168.              Adaptor$ = "Colour Graphics Adaptor"
  169.         CASE ELSE
  170.              Adaptor$ = "Monochrome Display Adaptor"
  171.     END SELECT
  172.  
  173.     Mouse% = MouseInit%                         ' See if a mouse is available
  174.  
  175.     DIM Menu$(0 TO 12)                          ' Dimension array for menus
  176.     HotKeys% = FALSE                            ' Disable hotkeys in menus
  177.     Printer% = 1                                ' Use the first parallel port
  178.     RootName$ = "DEMON"                         ' Used for help topic files
  179.     DOS$ = "DOS " + DosVersion$                 ' Check current DOS version
  180.     Lc$ = "abcdefghijklmnopqrstuvwxyz"          ' Lowercase letters
  181.     Uc$ = UCASE$(Lc$)                           ' Uppercase letters
  182.     Nu$ = "0123456789"                          ' Numerals
  183.     VFln$ = "\._^$~!#%&-@`({})'"                ' Legal pathname characters
  184.  
  185.     DY$ = MID$(DATE$, 4, 2): DY% = VAL(DY$)     ' What day is this?
  186.     MO$ = LEFT$(DATE$, 2): MO% = VAL(MO$)       ' What month is this?
  187.     YR$ = RIGHT$(DATE$, 2): YR% = VAL(YR$)      ' What year is this?
  188.     Now$ = DY$ + "/" + MO$ + "/" + YR$          ' Format it as DD/MM/YY
  189.  
  190.     ToDay$ = LongDate$(DY%, MO%, YR%)           ' Translate date into words
  191.  
  192. '┌────────────────────────────────────────────────────────────────────────┐
  193. '│      Main Menu.                                                        │
  194. '└────────────────────────────────────────────────────────────────────────┘
  195. '
  196.     ReSeed TIMER
  197. D001:
  198.     Head$ = "ASSEMBLY-LANGUAGE TOOLBOX FOR QuickBASIC"
  199.     LOCATE , , 0: Frame Head$, 1: Bar% = 1
  200. D002:
  201.     IF MaxRes% < 1 THEN
  202.        Menu$(0) = "WSFKME X"
  203.     ELSE
  204.        Menu$(0) = "WSFKMEGX"
  205.     END IF
  206.     Menu$(1) = "&Windows": Menu$(2) = "&Screen"
  207.     Menu$(3) = "&Files": Menu$(4) = "&Keyboard"
  208.     Menu$(5) = "&Memory": Menu$(6) = "&Examples"
  209.     Menu$(7) = "&Graphics": Menu$(8) = "E&xit"
  210.     Abort% = FALSE: HotKey% = FALSE
  211.     IF Nxt% THEN
  212.        IF Bar% = 1 THEN Bar% = 8
  213.        IF Bar% = 9 THEN Bar% = 2
  214.     END IF
  215.     BarMenu 3, BarColour%, 8, Menu$(), Bar%, Nxt%, 1, RootName$,_
  216.             Mouse%, HotKeys%
  217.     SELECT CASE Bar%
  218.         CASE 1
  219.              GOTO D100
  220.         CASE 2
  221.              GOTO D200
  222.         CASE 3
  223.              GOTO D300
  224.         CASE 4
  225.              GOTO D400
  226.         CASE 5
  227.              GOTO D500
  228.         CASE 6
  229.              GOTO D600
  230.         CASE 7
  231.              GOTO D700
  232.         CASE 8
  233.              GOTO D800
  234.         CASE 9
  235.              HelpMate 0, "", 0, ""
  236.         CASE ELSE
  237.              Ok% = Verify%(1, 9, "Exit program, are you sure", 0, Mouse%)
  238.              IF Ok% THEN GOTO Egress
  239.     END SELECT
  240. GOTO D002
  241.  
  242. '┌────────────────────────────────────────────────────────────────────────┐
  243. '│      Popup Window Demonstration.                                       │
  244. '└────────────────────────────────────────────────────────────────────────┘
  245. '
  246. D100:
  247.     A$ = STRING$(1680, "░"): FastPrint 4, 1, A$, 30
  248.     FastPrint 25, 1, SPACE$(80), StatColour%: A$ = ""
  249.     FastPrint 25, 2, Adaptor$, StatColour%
  250.     FastPrint 25, 71, DOS$, StatColour%
  251.     FOR M% = 1 TO 3
  252.         Area% = 0: O% = 0: B% = 1
  253.         DO
  254.             H% = Rand%(5, 10): W% = Rand%(14, 40)
  255.             Area% = Area% + (H% + 1) * (W% + 1)
  256.             IF Area% > 7200 THEN EXIT DO
  257.             K% = Rand%(4, 24 - H%): J% = Rand%(1, 79 - W%)
  258.             R% = Rand%(1, 4): S% = Rand%(1, 4)
  259.             Attrib% = Attribute%(15, B%)
  260.             PopUp K%, J%, H%, W%, Attrib%, R%, S%, -1
  261.             FastPrint K%, J% + ((W% \ 2) - 5), "[ WINDOW ]", Attrib%
  262.             O% = O% + 1: B% = B% + 1: IF B% > 6 THEN B% = 1
  263.          LOOP UNTIL O% = 30
  264.          IF (M% = 3) THEN SLEEP 3 ELSE SLEEP 1
  265.          FOR I% = O% TO 1 STEP -1
  266.              ShutUp -1
  267.          NEXT I%
  268.     NEXT M%
  269.     PopUp 4, 15, 10, 30, 52, 4, 1, -1: PopUp 3, 36, 13, 40, 47, 3, 1, -1
  270.     PopUp 9, 10, 13, 40, 31, 2, 1, -1: PopUp 12, 42, 11, 36, 67, 1, 1, -1
  271.     PopUp 2, 31, 5, 20, 78, 2, 1, -1: FastPrint 4, 34, "Presenting ...", 78
  272.     SLEEP 3: KeyFlush: Attrib% = Attribute%(0, 7)
  273.     PopUp 8, 20, 7, 40, Attrib%, 2, 1, -1
  274.     FastPrint 8, 31, "[ QUICK  WINDOWS ]", Attrib%
  275.     FastPrint 10, 29, "Windowing Routines for", Attrib%
  276.     FastPrint 11, 30, "Microsoft QuickBASIC", Attrib%
  277.     SLEEP 3: KeyFlush: Attrib% = Attribute%(0, 3)
  278.     PopUp 17, 55, 7, 24, Attrib%, 1, 3, -1
  279.     FastPrint 19, 58, "        By       ", Attrib%
  280.     FastPrint 20, 58, " Christy Gemmell ", Attrib%
  281.     FastPrint 21, 58, "       and       ", Attrib%
  282.     FastPrint 22, 58, "Singular Software", Attrib%
  283.     SLEEP 3: KeyFlush: Attrib% = Attribute%(14, 1)
  284.     PopUp 13, 2, 10, 23, Attrib%, 2, 4, 0
  285.     FastPrint 15, 4, "A Library of screen", Attrib%
  286.     FastPrint 16, 4, "handling procedures", Attrib%
  287.     FastPrint 17, 4, "and functions which", Attrib%
  288.     FastPrint 18, 4, "can be incorporated", Attrib%
  289.     FastPrint 19, 4, "in your QuickBASIC", Attrib%
  290.     FastPrint 20, 9, "programs.", Attrib%
  291.     SLEEP 4: KeyFlush: Attrib% = Attribute%(15, 1)
  292.     PopUp 16, 27, 5, 26, Attrib%, 2, 1, 0
  293.     FastPrint 18, 30, "HOLD ONTO YOUR HATS", Attrib%
  294.     SLEEP 2: KeyFlush: FOR I% = 1 TO 9: ShutUp -1: NEXT
  295.     Attrib% = 112: PopUp 9, 16, 8, 50, Attrib%, 2, 2, 0: RESTORE Blurb
  296.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, Attrib%: NEXT
  297.     SLEEP 6: KeyFlush: Scroll 1, 10, 17, 15, 64, 0, Attrib%
  298.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, Attrib%: NEXT
  299.     SLEEP 5: KeyFlush: IF Colour% THEN Attrib% = Attribute%(1, 2)
  300.     PopUp 5, 5, 6, 35, Attrib%, 0, 1, -1
  301.     SLEEP 3: ShutUp -1: Scroll 1, 10, 17, 15, 64, 0, 112
  302.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  303.     SLEEP 6: KeyFlush: IF Colour% THEN Attrib% = Attribute%(15, 6)
  304.     PopUp 6, 5, 8, 35, Attrib%, 0, 2, -1
  305.     FastPrint 6, 15, "[  No  Frame  ]", Attrib%
  306.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(11, 1)
  307.     PopUp 7, 8, 8, 35, Attrib%, 1, 2, -1
  308.     FastPrint 7, 17, "[ Frame Style 1 ]", Attrib%
  309.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(0, 2)
  310.     PopUp 8, 11, 8, 35, Attrib%, 2, 2, -1
  311.     FastPrint 8, 20, "[ Frame Style 2 ]", Attrib%
  312.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(0, 3)
  313.     PopUp 9, 14, 8, 35, Attrib%, 3, 2, -1
  314.     FastPrint 9, 23, "[ Frame Style 3 ]", Attrib%
  315.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(14, 4)
  316.     PopUp 10, 17, 8, 35, Attrib%, 4, 2, -1
  317.     FastPrint 10, 26, "[ Frame Style 4 ]", Attrib%
  318.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(12, 5)
  319.     PopUp 11, 20, 8, 35, Attrib%, 5, 2, -1
  320.     FastPrint 11, 29, "[ Frame Style 5 ]", Attrib%
  321.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(13, 6)
  322.     PopUp 12, 23, 8, 35, Attrib%, 6, 2, -1
  323.     FastPrint 12, 32, "[ Frame Style 6 ]", Attrib%
  324.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(15, 2)
  325.     PopUp 13, 26, 8, 35, Attrib%, 7, 2, -1
  326.     FastPrint 13, 35, "[ Frame Style 7 ]", Attrib%
  327.     SLEEP 1: KeyFlush: IF Colour% THEN Attrib% = Attribute%(1, 3)
  328.     PopUp 14, 29, 8, 35, Attrib%, 8, 2, -1
  329.     FastPrint 14, 39, "[ Frame Style 8 ]", Attrib%
  330.     SLEEP 4: KeyFlush: FOR I% = 1 TO 9: ShutUp -1: NEXT
  331.     Scroll 1, 10, 17, 15, 64, 0, 112
  332.     FOR I% = 11 TO 13: READ Me$: FastPrint I%, 20, Me$, 112: NEXT
  333.     SLEEP 6: KeyFlush
  334.     FOR I% = 1 TO 15
  335.         Label$ = "[ Colour:" + STR$(I%) + " ]"
  336.         J% = Rand%(1, 51): K% = Rand%(1, 13)
  337.         Attrib% = Attribute%(I%, 0)
  338.         PopUp K% + 1, J% + 1, 7, 24, Attrib%, 4, 0, 0
  339.         FastPrint K% + 1, J% + 6, Label$, Attrib%
  340.         SLEEP 1: KeyFlush
  341.     NEXT I%
  342.     Attrib% = Attribute%(31, B%)
  343.     PopUp 7, 20, 7, 24, Attrib%, 4, 2, 0
  344.     FastPrint 7, 25, "[ Colour: 31 ]", Attrib%
  345.     SLEEP 4: KeyFlush: FOR I% = 1 TO 16: ShutUp 0: NEXT
  346.     Scroll 1, 10, 17, 15, 64, 0, 112
  347.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  348.     SLEEP 6: KeyFlush: Attrib% = Attribute%(15, 1)
  349.     PopUp 2, 2, 11, 30, Attrib%, 7, 0, 0
  350.     SLEEP 3: KeyFlush: ShutUp 0: Scroll 1, 10, 17, 15, 64, 0, 112
  351.     FOR I% = 12 TO 13: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  352.     SLEEP 6: KeyFlush: Attrib% = Attribute%(14, 5)
  353.     PopUp 5, 5, 10, 30, Attrib%, 2, 1, 0
  354.     FastPrint 9, 14, "Left Shadow", Attrib%
  355.     SLEEP 2: KeyFlush: Attrib% = Attribute%(0, 2)
  356.     PopUp 5, 45, 10, 30, Attrib%, 2, 2, 0
  357.     FastPrint 9, 54, "Right Shadow", Attrib%
  358.     SLEEP 2: KeyFlush: ShutUp 0: ShutUp 0
  359.     Scroll 1, 10, 17, 15, 64, 0, 112
  360.     FastPrint 12, 31, "Windows can be zoomed", 112
  361.     FastPrint 13, 33, "onto the screen.", 112
  362.     SLEEP 3: KeyFlush: Attrib% = Attribute%(0, 2)
  363.     PopUp 2, 2, 15, 60, Attrib%, 2, 0, -1
  364.     SLEEP 2: KeyFlush: Attrib% = Attribute%(0, 3)
  365.     PopUp 13, 10, 10, 60, Attrib%, 3, 0, -1
  366.     SLEEP 2: KeyFlush: Attrib% = Attribute%(14, 5)
  367.     PopUp 7, 33, 10, 45, Attrib%, 1, 0, -1
  368.     SLEEP 2: KeyFlush: Attrib% = Attribute%(15, 4)
  369.     IF NOT Colour% THEN Attrib% = 112
  370.     PopUp 7, 10, 12, 63, Attrib%, 2, 1, -1
  371.     FastPrint 12, 32, "<<< W O W >>>", Attrib%
  372.     SLEEP 3: KeyFlush: FOR I% = 1 TO 4: ShutUp -1: NEXT
  373.     Scroll 1, 10, 17, 15, 64, 0, 112
  374.     FOR I% = 10 TO 14: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  375.     SLEEP 6: KeyFlush: Scroll 1, 10, 17, 15, 64, 0, 112
  376.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  377.     SLEEP 6: KeyFlush: Scroll 1, 10, 17, 15, 64, 0, 112
  378.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  379.     SLEEP 6: KeyFlush: Attrib% = Attribute%(0, 2)
  380.     PopUp 3, 5, 15, 45, Attrib%, 4, 1, -1
  381.     FastPrint 9, 14, "This is the first level ...", Attrib%
  382.     SLEEP 2: KeyFlush: Attrib% = Attribute%(15, 4)
  383.     PopUp 6, 29, 17, 50, Attrib%, 4, 1, -1
  384.     FastPrint 12, 40, "This is the second level ...", Attrib%
  385.     SLEEP 2: KeyFlush: Attrib% = Attribute%(0, 3)
  386.     PopUp 9, 22, 15, 35, Attrib%, 4, 1, -1
  387.     FastPrint 16, 26, "This is the third level ...", Attrib%
  388.     SLEEP 2: KeyFlush: FastPrint 16, 26, "Now to go back ...         ", Attrib%
  389.     SLEEP 1: ShutUp -1: SLEEP 1: ShutUp -1: SLEEP 1: ShutUp -1: SLEEP 2
  390.     Scroll 1, 10, 17, 15, 64, 0, 112: KeyFlush
  391.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  392.     Ok% = Verify%(1, 9, "Are you enjoying this program", 0, Mouse%)
  393.     Scroll 1, 10, 17, 15, 64, 0, 112
  394.     IF Ok% THEN
  395.        FastPrint 11, 28, "You sound very positive!", 112
  396.     ELSE
  397.        FastPrint 11, 28, "You sound very negative!", 112
  398.     END IF
  399.     SLEEP 2: KeyFlush: Scroll 1, 10, 17, 15, 64, 0, 112
  400.     FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  401.     SLEEP 3: KeyFlush: SL% = StatusLine%("Want to carry on?")
  402.     IF SL% = 78 OR SL% = 110 OR SL% = 27 THEN
  403.        ShutUp -1
  404.     ELSE
  405.        A$ = STRING$(44, SL%)
  406.        FOR I% = 10 TO 15: FastPrint I%, 19, A$, 112: NEXT
  407.        SLEEP 6: KeyFlush: Scroll 1, 10, 17, 15, 64, 0, 112
  408.        FOR I% = 10 TO 15: READ Me$: FastPrint I%, 19, Me$, 112: NEXT
  409.        SLEEP 6: KeyFlush: Scroll 1, 10, 17, 15, 64, 0, 112
  410.        Ready% = PrinTest%(Printer%)
  411.        IF Ready% THEN
  412.           FastPrint 11, 30, "PRINTER CONTROL MENU", 112
  413.           FastPrint 13, 24, "The Toolbox contains versions for", 112
  414.           FastPrint 14, 27, "two other popular printers.", 112
  415.           FastPrint 25, 2, "Press <ESC> to Abort       ", StatColour%
  416.           PrintSet 4, 51, 0, Printer%, Mouse%
  417.           FastPrint 25, 1, SPACE$(80), StatColour%
  418.           FastPrint 25, 2, Adaptor$, StatColour%
  419.           FastPrint 25, 71, DOS$, StatColour%
  420.           SLEEP 5: KeyFlush
  421.        END IF
  422.        ShutUp -1
  423.        PopUp 4, 15, 10, 30, 52, 4, 1, -1
  424.        PopUp 3, 36, 13, 40, 47, 3, 1, -1
  425.        PopUp 9, 10, 13, 40, 78, 2, 1, -1
  426.        PopUp 12, 42, 11, 36, 67, 1, 1, -1
  427.        PopUp 9, 16, 8, 52, 112, 2, 1, -1
  428.        FastPrint 11, 20, "The video routines in the Toolbox Library", 112
  429.        FastPrint 12, 20, "give you all you need to create powerful", 112
  430.        FastPrint 13, 20, "and professional screen displays in your", 112
  431.        FastPrint 14, 20, "QuickBASIC programs.", 112: SLEEP 9: KeyFlush
  432.        FOR I% = 1 TO 5: ShutUp -1: SLEEP 1: KeyFlush: NEXT
  433.        IF NOT Ready% THEN
  434.           PopUp 10, 18, 5, 44, 96, 1, 2, 0
  435.           Me$ = "Pity you didn't have a printer connected"
  436.           FastPrint 12, 20, Me$, 96: SLEEP 5: KeyFlush: ShutUp 0
  437.        END IF
  438.     END IF
  439. GOTO D001
  440.  
  441. '┌────────────────────────────────────────────────────────────────────────┐
  442. '│      Screen control functions.                                         │
  443. '└────────────────────────────────────────────────────────────────────────┘
  444. '
  445. D200:
  446.     Menu$(0) = "F#SC#B"
  447.     Menu$(1) = "&Fast screen printing"
  448.     Menu$(3) = "&Selective scrolling"
  449.     Menu$(4) = "&Clear to the end"
  450.     Menu$(6) = "&Background colours"
  451.     VerMenu 4, 3, BarColour%, 1, 6, "SCREEN CONTROL", Menu$(),_
  452.             Choice%, Nxt%, Bar%, 1, RootName$, Mouse%, HotKeys%
  453.     IF Nxt% THEN GOTO D002
  454.     SELECT CASE Choice%
  455.         CASE 1
  456.              GOTO D210
  457.         CASE 3
  458.              GOTO D220
  459.         CASE 4
  460.              GOTO D230
  461.         CASE 6
  462.              GOTO D240
  463.         CASE ELSE
  464.     END SELECT
  465. GOTO D002
  466.  
  467. '   Screen print demonstration
  468. '
  469. D210:
  470.     A$ = STRING$(1680, "«"): B$ = STRING$(1680, "»")
  471.     FOR I% = 1 TO 255
  472.         FastPrint 4, 1, A$, I%: FastPrint 4, 1, B$, I%
  473.         IF INKEY$ = CHR$(27) THEN EXIT FOR
  474.     NEXT I%
  475.     IF I% = 256 THEN
  476.        A$ = "": B$ = "": C$ = STRING$(1680, "░"): Attrib% = 30
  477.        FastPrint 4, 1, C$, Attrib%: C$ = ""
  478.        IF Colour% THEN Attrib% = 48 ELSE Attrib% = 112
  479.        PopUp 12, 21, 7, 40, Attrib%, 3, 4, -1
  480.        FastPrint 15, 33, "<<< W O W >>>", Attrib%
  481.        SLEEP 5: KeyFlush: ShutUp -1
  482.     END IF
  483. GOTO D200
  484.  
  485. '   Selective scrolling demonstration
  486. '
  487. D220:
  488.     Panel 4, 1, 21, 80, 1, TextColour%
  489.     IF Colour% THEN BackGround% = 7 ELSE BackGround% = 0
  490.     Clr% = 1: IF Mouse% THEN MouseShow
  491.     DO
  492.        Scroll 0, 4, 21, 7, 60, 1, Attribute%(0, Clr%)
  493.        Scroll 2, 9, 6, 19, 20, 1, Attribute%(0, Clr%)
  494.        Scroll 3, 9, 61, 19, 75, 1, Attribute%(0, Clr%)
  495.        Scroll 1, 21, 21, 24, 60, 1, Attribute%(0, Clr%)
  496.        COLOR Clr%, BackGround%
  497.        LOCATE 19, 25: PRINT "SCROLLING UP";
  498.        Scroll 0, 9, 23, 19, 38, 1, Attribute%(Clr%, BackGround%)
  499.        LOCATE 9, 43: PRINT "SCROLLING DOWN";
  500.        Scroll 1, 9, 41, 19, 58, 1, Attribute%(Clr%, BackGround%)
  501.        Pause 1: Clr% = Clr% + 1
  502.        IF Clr% = BackGround% THEN Clr% = Clr% + 1
  503.        IF Clr% > 7 THEN Clr% = 1
  504.        IF Mouse% THEN
  505.           MouseNow LeftButton%, RightButton%, xMouse%, yMouse%
  506.           IF LeftButton% THEN
  507.              IF yMouse% > 15 AND yMouse% < 24 THEN
  508.                 Z$ = CHR$(32): EXIT DO
  509.              END IF
  510.           END IF
  511.        END IF
  512.        Z$ = INKEY$
  513.     LOOP UNTIL Z$ = CHR$(27)
  514.     IF Mouse% THEN
  515.        CALL MouseHide: IF Z$ <> CHR$(27) THEN GOTO D002
  516.     END IF
  517. GOTO D200
  518.  
  519. '   Clear to end of line or screen
  520. '
  521. D230:
  522.     Panel 4, 1, 24, 80, 1, TextColour%
  523.     IF Colour% THEN Attrib% = 15 ELSE Attrib% = 112
  524.     FastPrint 22, 30, "Press a key to do it", TextColour%
  525.     FastPrint 10, 3, "Clear end of line >", TextColour%
  526.     LOCATE 10, 22, 1: R$ = INPUT$(1): ClearEnd 0, Attrib%
  527.     FastPrint 15, 3, "Clear end of screen >", TextColour%
  528.     LOCATE 15, 24, 1: R$ = INPUT$(1): ClearEnd 1, Attrib%
  529.     LOCATE , , 0: Frame Head$, 0
  530. GOTO D200
  531.  
  532. D240:
  533.     FastPrint 25, 1, SPACE$(80), StatColour%
  534.     FastPrint 25, 3, "Press any key, <Esc> to abort", StatColour%
  535.     RANDOMIZE TIMER: IF Mouse% THEN MouseShow
  536.     DO
  537.        Row% = Rand%(5, 20): Col% = Rand%(2, 62): Rows% = Rand%(1, 16)
  538.        IF Row% + Rows% > 23 THEN Rows% = 24 - Row%
  539.        Cols% = Rand%(1, 60): IF Col% + Cols% > 78 THEN Cols% = 79 - Col%
  540.        Attrib% = Rand%(0, 255): BackFill Row%, Col%, Rows%, Cols%, Attrib%
  541.        DO
  542.           IF Mouse% THEN
  543.              MouseNow LeftButton%, RightButton%, xMouse%, yMouse%
  544.              IF LeftButton% THEN
  545.                 IF yMouse% > 15 AND yMouse% < 24 THEN
  546.                    Z$ = CHR$(27)
  547.                    EXIT DO
  548.                 ELSE
  549.                    Z$ = CHR$(32)
  550.                    EXIT DO
  551.                 END IF
  552.              END IF
  553.           END IF
  554.           Z$ = INKEY$
  555.        LOOP UNTIL Z$ <> ""
  556.     LOOP UNTIL Z$ = CHR$(27)
  557.     Frame Head$, 0: IF Mouse% THEN MouseHide:
  558.     IF Z$ <> CHR$(27) THEN GOTO D002
  559. GOTO D200
  560.  
  561. '┌────────────────────────────────────────────────────────────────────────┐
  562. '│      File Functions.                                                   │
  563. '└────────────────────────────────────────────────────────────────────────┘
  564. '
  565. D300:
  566.     Menu$(0) = "WH#S"
  567.     Menu$(1) = "&Where's that file?"
  568.     Menu$(2) = "&How big is that file?"
  569.     Menu$(4) = "&Sort that file"
  570.     Abort% = FALSE
  571.     VerMenu 4, 9, BarColour%, 1, 4, "FILE FUNCTIONS", Menu$(),_
  572.             Choice%, Nxt%, Bar%, 1, RootName$, Mouse%, HotKeys%
  573.     IF Nxt% THEN GOTO D002
  574.     SELECT CASE Choice%
  575.         CASE 1
  576.              GOTO D310
  577.         CASE 2
  578.              GOTO D320
  579.         CASE 4
  580.              GOTO D330
  581.         CASE ELSE
  582.     END SELECT
  583. GOTO D002
  584.  
  585. '   File Finder
  586. '
  587. D310:
  588.     Panel 4, 1, 21, 80, 1, TextColour%
  589.     RESTORE Finder
  590.     FOR I% = 1 TO 13
  591.         READ Me$: FastPrint 5 + I%, 14, Me$, TextColour%
  592.     NEXT I%
  593.     Scroll 1, 19, 2, 21, 79, 0, TextColour%
  594.     PopUp 19, 19, 4, 44, 96, 2, 2, -1: HotKey% = FALSE
  595.     FastPrint 20, 28, "Enter name of file to find", 96
  596.     LOCATE 21, 21: Legal$ = Uc$ + Lc$ + Nu$ + VFln$ + ":*?"
  597.     PathName$ = RevInput$(40, 0, "", Legal$, 1, "REVINPUT", 0, HotKey%)
  598.     ShutUp -1
  599.     IF HotKey% THEN
  600.        Abort% = TRUE
  601.     ELSE
  602.        PathName$ = RTRIM$(LTRIM$(PathName$))
  603.        Found$ = FindFile$(PathName$, 0, Mouse%)
  604.        IF Found$ <> "" THEN
  605.           Found$ = LTRIM$(RTRIM$(Found$))
  606.           OT% = 40 - (LEN(Found$) \ 2)
  607.           FastPrint 20, OT%, Found$, TextColour%
  608.        END IF
  609.     END IF
  610. GOTO D300
  611.  
  612. D320:
  613.     Panel 4, 1, 21, 80, 1, TextColour%
  614.     RESTORE Size
  615.     FOR I% = 1 TO 12
  616.         READ Me$: FastPrint 5 + I%, 8, Me$, TextColour%
  617.     NEXT I%
  618.     Scroll 1, 18, 3, 23, 78, 0, TextColour%: HotKey% = FALSE
  619.     LOCATE 20, 20: Legal$ = Uc$ + Lc$ + Nu$ + VFln$ + "*?"
  620.     PathName$ = RevInput$(64, 40, "", Legal$, 1, "REVINPUT", 0, HotKey%)
  621.     IF HotKey% THEN
  622.        Abort% = TRUE
  623.     ELSE
  624.        PathName$ = LTRIM$(RTRIM$(PathName$))
  625.        IF PathName$ = "" THEN PathName$ = "*.*"
  626.        IF IsDir%(PathName$) THEN PathName$ = PathName$ + "\*.*"
  627.        FastPrint 20, 8, SPACE$(64), TextColour%
  628.        FastPrint 20, 8, PathName$, TextColour%
  629.        Bytes& = FileSize&(PathName$)
  630.        IF Bytes& > 0 THEN
  631.           Me$ = "Size = " + LTRIM$(RTRIM$(STR$(Bytes&))) + " bytes"
  632.           FastPrint 22, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  633.        ELSE
  634.           MisTake 9, "No match found!", 0, Mouse%
  635.        END IF
  636.     END IF
  637. GOTO D300
  638.  
  639. '   File sorter.
  640. '
  641. D330:
  642.     Panel 4, 1, 21, 80, 1, TextColour%
  643.     RESTORE Sorts
  644.     FOR I% = 1 TO 10
  645.         READ Me$: FastPrint 4 + I%, 8, Me$, TextColour%
  646.     NEXT I%
  647.     IF FileSize&("SAMPLE.DAT") < 1 THEN
  648.        MisTake 9, "Can't find SAMPLE data file to sort!", 0, Mouse%
  649.     ELSE
  650.        IF Colour% THEN Attrib% = 32 ELSE Attrib% = 112
  651.        PopUp 16, 3, 8, 74, Attrib%, 1, 4, -1
  652.        FastPrint 16, 36, " SAMPLE.DAT ", Attrib%
  653.        OPEN "SAMPLE.DAT" FOR INPUT AS #1
  654.        FOR I% = 1 TO 6
  655.            LINE INPUT #1, A$: OL% = LEN(A$)
  656.            Me$ = LEFT$(A$, OL% - 2)
  657.            FastPrint 16 + I%, 40 - (OL% \ 2) + 1, Me$, Attrib%
  658.        NEXT I%
  659.        CLOSE 1: SL% = StatusLine%("To begin sorting ...")
  660.        SortFile "SAMPLE.DAT", 1, 10, OL% + 2, Done%
  661.        IF Done% THEN
  662.           OPEN "SAMPLE.DAT" FOR INPUT AS #1
  663.           FOR I% = 1 TO 6
  664.               LINE INPUT #1, A$: OL% = LEN(A$)
  665.               Me$ = LEFT$(A$, OL% - 2)
  666.               FastPrint 16 + I%, 40 - (OL% \ 2) + 1, Me$, Attrib%
  667.           NEXT I%
  668.           CLOSE 1
  669.           SL% = StatusLine%("File successfully sorted"): ShutUp -1
  670.        ELSE
  671.           ShutUp -1
  672.           FastPrint 21, 30, "Unable to sort file", TextColour%
  673.        END IF
  674.     END IF
  675. GOTO D300
  676.  
  677. '┌────────────────────────────────────────────────────────────────────────┐
  678. '│      Keyboard functions and procedures.                                │
  679. '└────────────────────────────────────────────────────────────────────────┘
  680. '
  681. D400:
  682.     Menu$(0) = "AKT#M"
  683.     Menu$(1) = "&ASCII and scan codes"
  684.     Menu$(2) = "&Keyboard shift flags"
  685.     Menu$(3) = "&Typeahead buffer"
  686.     Menu$(5) = "&Mouse position and status"
  687.     VerMenu 4, 16, BarColour%, 1, 5, "KEYBOARD AND MOUSE", Menu$(),_
  688.             Choice%, Nxt%, Bar%, 1, RootName$, Mouse%, HotKeys%
  689.     IF Nxt% THEN GOTO D002
  690.     SELECT CASE Choice%
  691.         CASE 1
  692.              GOTO D410
  693.         CASE 2
  694.              GOTO D420
  695.         CASE 3
  696.              GOTO D430
  697.         CASE 5
  698.              GOTO D440
  699.         CASE ELSE
  700.     END SELECT
  701. GOTO D002
  702.  
  703. '   Indexes to the font table in ROM-BIOS, then translates the pixel
  704. '   values of the character specified by a keypress, into a large-
  705. '   scale representation of that character.
  706. '
  707. D410:
  708.     Panel 4, 1, 21, 80, 1, TextColour%
  709.     Fore$ = STRING$(2, "█"): Back$ = STRING$(2, "░")
  710.     FastPrint 6, 31, "┌────────────────┐", TextColour%
  711.     FOR Row% = 7 TO 14
  712.         FastPrint Row%, 31, "│" + STRING$(16, "░") + "│", TextColour%
  713.     NEXT Row%
  714.     FastPrint 15, 31, "└────────────────┘", TextColour%
  715.     FastPrint 25, 1, SPACE$(80), StatColour%
  716.     FastPrint 25, 3, "Press any key, or <Esc> to abort", StatColour%
  717.     LOCATE 21, 40, 1: Abort% = FALSE: CALL KeyFlush
  718.     DO
  719.         Character% = KeyIn%: IF Character% = 27 THEN EXIT DO
  720.         FastPrint 21, 40, " ", TextColour%
  721.         FastPrint 16, 10, SPACE$(60), TextColour%
  722.         SELECT CASE Character%
  723.             CASE 0 TO 127
  724.                  FOR Row% = 1 TO 8
  725.                      Pixel% = FarPeek%(&HF000, &HFA6D + (Character% * 8)_
  726.                             + Row%)
  727.                      IF Pixel% = 0 THEN
  728.                         FastPrint Row% + 6, 32, STRING$(16, "░"), TextColour%
  729.                      ELSE
  730.                         Col% = 32
  731.                         FOR Column% = 7 TO 0 STEP -1
  732.                             IF Pixel% < 2 ^ Column% THEN
  733.                                FastPrint Row% + 6, Col%, Back$, TextColour%
  734.                             ELSE
  735.                                FastPrint Row% + 6, Col%, Fore$, TextColour%
  736.                                Pixel% = Pixel% - 2 ^ Column%
  737.                             END IF
  738.                             Col% = Col% + 2
  739.                         NEXT Column%
  740.                      END IF
  741.                  NEXT Row%
  742.             CASE ELSE
  743.                  IF Character% < 0 THEN
  744.                     Me$ = SPACE$(16)
  745.                  ELSE
  746.                     Me$ = STRING$(16, Character%)
  747.                  END IF
  748.                  FOR Row% = 1 TO 8
  749.                      FastPrint Row% + 6, 32, Me$, TextColour%
  750.                  NEXT Row%
  751.         END SELECT
  752.         IF Character% < 0 THEN
  753.            Me$ = "Scan Code " + LTRIM$(RTRIM$(STR$(ABS(Character%))))
  754.         ELSE
  755.            Me$ = "ASCII Code " + LTRIM$(RTRIM$(STR$(Character%)))
  756.         END IF
  757.         FastPrint 16, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  758.     LOOP WHILE 1
  759.     LOCATE , , 0: Frame Head$, 0
  760. GOTO D400
  761.  
  762. '   Keyboard shift flags.
  763. '
  764. D420:
  765.     Panel 4, 1, 21, 80, 1, TextColour%
  766.     ShiftFlags% = KeyFlags%: Flag$ = STRING$(16, "0")
  767.     FOR I% = 15 TO 0 STEP -1
  768.         IF BitTest%(ShiftFlags%, I%) THEN
  769.            MID$(Flag$, 16 - I%, 1) = "1"
  770.         END IF
  771.     NEXT I%
  772.     FastPrint 5, 40, "Keyboard Status Word at 0040:0017", TextColour%
  773.     FastPrint 7, 40, "Bit settings (1 = set)", TextColour%
  774.     FastPrint 5, 3, " F E D C B A 9 8 7 6 5 4 3 2 1 0", TextColour%
  775.     FastPrint 6, 3, "┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐", TextColour%
  776.     FastPrint 7, 3, "│", TextColour%: Col% = 4
  777.     FOR I% = 1 TO 16
  778.         FastPrint 7, Col%, MID$(Flag$, I%, 1) + "│", TextColour%
  779.         Col% = Col% + 2
  780.     NEXT I%
  781.     FastPrint  8, 3, "└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘", TextColour%
  782.     FastPrint  9, 3, " │ │ │ │ │ │ │ │ │ │ │ │ │ │ └─┴─", TextColour%
  783.     FastPrint 10, 3, " │ │ │ │ │ │ │ │ │ │ │ │ │ └─────", TextColour%
  784.     FastPrint 11, 3, " │ │ │ │ │ │ │ │ │ │ │ │ └───────", TextColour%
  785.     FastPrint 12, 3, " │ │ │ │ │ │ │ │ │ │ │ └─────────", TextColour%
  786.     FastPrint 13, 3, " │ │ │ │ │ │ │ │ │ │ └───────────", TextColour%
  787.     FastPrint 14, 3, " │ │ │ │ │ │ │ │ │ └─────────────", TextColour%
  788.     FastPrint 15, 3, " │ │ │ │ │ │ │ │ └───────────────", TextColour%
  789.     FastPrint 16, 3, " │ │ │ │ │ │ │ └─────────────────", TextColour%
  790.     FastPrint 17, 3, " │ │ │ │ │ │ └───────────────────", TextColour%
  791.     FastPrint 18, 3, " │ │ │ │ │ └─────────────────────", TextColour%
  792.     FastPrint 19, 3, " │ │ │ │ └───────────────────────", TextColour%
  793.     FastPrint 20, 3, " │ │ │ └─────────────────────────", TextColour%
  794.     FastPrint 21, 3, " │ │ └───────────────────────────", TextColour%
  795.     FastPrint 22, 3, " │ └─────────────────────────────", TextColour%
  796.     FastPrint 23, 3, " └───────────────────────────────", TextColour%
  797.     FastPrint 25, 1, SPACE$(80), StatColour%
  798.     FastPrint 25, 3, "Press <Esc> to abort", StatColour%
  799.     RESTORE Shift
  800.     FOR I% = 1 TO 15
  801.         READ Me$: FastPrint I% + 8, 40, Me$, TextColour%
  802.     NEXT I%
  803.     IF Mouse% THEN MouseShow
  804.     DO
  805.         ShiftFlags% = KeyFlags%
  806.         FOR I% = 15 TO 0 STEP -1
  807.             IF BitTest%(ShiftFlags%, I%) THEN
  808.                MID$(Flag$, 16 - I%, 1) = "1"
  809.             ELSE
  810.                MID$(Flag$, 16 - I%, 1) = "0"
  811.             END IF
  812.         NEXT I%
  813.         Col% = 4
  814.         FOR I% = 1 TO 16
  815.             FastPrint 7, Col%, MID$(Flag$, I%, 1) + "│", TextColour%
  816.             Col% = Col% + 2
  817.         NEXT I%
  818.         CL% = CapsLock%(2)
  819.         IF CL% THEN
  820.            FastPrint 25, 65, "CAPS", 14
  821.         ELSE
  822.            FastPrint 25, 65, "    ", StatColour%
  823.         END IF
  824.         NL% = NumLock%(2)
  825.         IF NL% THEN
  826.            FastPrint 25, 70, "NUM", 14
  827.         ELSE
  828.            FastPrint 25, 70, "   ", StatColour%
  829.         END IF
  830.         SL% = ScrLock%(2)
  831.         IF SL% THEN
  832.            FastPrint 25, 74, "SCRL", 14
  833.         ELSE
  834.            FastPrint 25, 74, "    ", StatColour%
  835.         END IF
  836.         IF Mouse% THEN
  837.            MouseNow LeftButton%, RightButton%, xMouse%, yMouse%
  838.            IF LeftButton% THEN
  839.               IF yMouse% > 15 AND yMouse% < 24 THEN
  840.                  Z$ = CHR$(32): EXIT DO
  841.               END IF
  842.            END IF
  843.         END IF
  844.         Z$ = INKEY$
  845.     LOOP UNTIL Z$ = CHR$(27)
  846.     Frame Head$, 0
  847.     IF Mouse% THEN
  848.        CALL MouseHide: IF Z$ <> CHR$(27) THEN GOTO D002
  849.     END IF
  850. GOTO D400
  851.  
  852. '   Keyboard typeahead buffer.
  853. '
  854. D430:
  855.     COLOR 7, 0: Panel 4, 1, 21, 80, 1, 14
  856.     RESTORE KeyBuff: READ Items%
  857.     FOR I% = 1 TO Items%
  858.         READ Row%, Col%, Me$: LOCATE Row%, Col%, 0: PRINT Me$;
  859.     NEXT I%
  860.     LOCATE 11, 68: COLOR 11
  861.     Start% = &H400 + FarPeek%(&H40, &H80)
  862.     Finish% = &H400 + FarPeek%(&H40, &H82)
  863.     PRINT RIGHT$("0000" + HEX$(Start%), 4); " ";
  864.     PRINT RIGHT$("0000" + HEX$(Finish%), 4);
  865.     DO
  866.         Hd% = &H400 + FarPeek%(&H40, &H1A)
  867.         Tl% = &H400 + FarPeek%(&H40, &H1C)
  868.         LOCATE 11, 4: COLOR 11
  869.         PRINT RIGHT$("0000" + HEX$(Hd%), 4); " ";
  870.         PRINT RIGHT$("0000" + HEX$(Tl%), 4);
  871.         COLOR 13: LOCATE 9, 17: PRINT SPACE$(48);
  872.         LOCATE 9, 17 + ((Hd% - &H41E) \ 2) * 3: PRINT CHR$(25);
  873.         COLOR 12: LOCATE 13, 17: PRINT SPACE$(48);
  874.         LOCATE 13, 17 + ((Tl% - &H41E) \ 2) * 3: PRINT CHR$(24);
  875.         FOR I% = 0 TO 15
  876.             C% = FarPeek%(&H40, &H1E + (I% * 2))
  877.             S% = FarPeek%(&H40, &H1E + (I% * 2) + 1)
  878.             IF C% < 32 THEN Ky$ = "  " ELSE Ky$ = CHR$(C%) + " "
  879.             LOCATE 11, 17 + (I% * 3): COLOR 14: PRINT Ky$;
  880.             LOCATE 14, 17 + (I% * 3): COLOR 9
  881.             PRINT RIGHT$("0" + HEX$(C%), 2);
  882.             LOCATE 15, 17 + (I% * 3): COLOR 10
  883.             PRINT RIGHT$("0" + HEX$(S%), 2);
  884.         NEXT I%
  885.         IF Hd% >= Tl% THEN
  886.            Kys% = 16 - ((Hd% - Tl%) \ 2)
  887.         ELSE
  888.            Kys% = (Tl% - Hd%) \ 2
  889.         END IF
  890.         LOCATE 14, 76: IF Kys% = 16 THEN Kys% = 0
  891.         PRINT RIGHT$(" " + LTRIM$(RTRIM$(STR$(Kys%))), 2);
  892.         IF Kys% = 15 THEN
  893.            LOCATE 15, 67: COLOR 28: PRINT "BUFFER FULL";
  894.            SLEEP 2: KeyFlush: LOCATE , 67: PRINT SPACE$(11);
  895.         END IF
  896.     LOOP UNTIL FarPeek%(&H40, (Tl% - &H400) - 2) = 27
  897.     COLOR 7, 0: LOCATE 20, 1, 0
  898.     Dummy$ = INPUT$(Kys%)
  899. GOTO D400
  900.  
  901. '   Report mouse cursor position and status.
  902. '
  903. D440:
  904.     IF Mouse% THEN
  905.        Panel 4, 1, 21, 80, 1, TextColour%
  906.        CALL MouseShow
  907.        DO
  908.           MouseNow LeftButton%, RightButton%, xMouse%, yMouse%
  909.           Me$ = "x=" + LTRIM$(RTRIM$(STR$(xMouse%))) + "  "
  910.           FastPrint 12, 31, Me$, TextColour%
  911.           Me$ = "y=" + LTRIM$(RTRIM$(STR$(yMouse%))) + "  "
  912.           FastPrint 12, 41, Me$, TextColour%
  913.           IF LeftButton% THEN
  914.              IF yMouse% > 15 AND yMouse% < 24 THEN
  915.                 EXIT DO
  916.              ELSE
  917.                 Me$ = "Left button pressed"
  918.              END IF
  919.           ELSE
  920.              Me$ = "                   "
  921.           END IF
  922.           FastPrint 14, 31, Me$, TextColour%
  923.           IF RightButton% THEN
  924.              Me$ = "Right button pressed"
  925.           ELSE
  926.              Me$ = "                    "
  927.           END IF
  928.           FastPrint 15, 31, Me$, TextColour%: Z$ = INKEY$
  929.        LOOP UNTIL Z$ = CHR$(27)
  930.        CALL MouseHide
  931.        IF Z$ <> CHR$(27) THEN GOTO D002
  932.     ELSE
  933.        MisTake 9, "Mouse driver not installed", 0, Mouse%
  934.     END IF
  935. GOTO D400
  936.  
  937. '┌────────────────────────────────────────────────────────────────────────┐
  938. '│      Memory-related functions and procedures.                          │
  939. '└────────────────────────────────────────────────────────────────────────┘
  940. '
  941. D500:
  942.     IF EmsPresent% THEN Menu$(0) = "F#E" ELSE Menu$(0) = "F# "
  943.     Menu$(1) = "Operating system &Flags"
  944.     Menu$(3) = "&Expanded memory services"
  945.     Abort% = FALSE
  946.     VerMenu 4, 26, BarColour%, 1, 3, "MEMORY", Menu$(),_
  947.             Choice%, Nxt%, Bar%, 1, RootName$, Mouse%, HotKeys%
  948.     IF Nxt% THEN GOTO D002
  949.     SELECT CASE Choice%
  950.         CASE 1
  951.              GOTO D510
  952.         CASE 3
  953.              GOTO D520
  954.         CASE ELSE
  955.     END SELECT
  956. GOTO D002
  957.  
  958. '┌────────────────────────────────────────────────────────────────────────┐
  959. '│      System Flags.                                                     │
  960. '└────────────────────────────────────────────────────────────────────────┘
  961. '
  962. D510:
  963.     DIM CoOrd%(16, 2): Context% = 1: Topic$ = "FLAGS"
  964.     Panel 4, 1, 21, 80, 1, TextColour%: RESTORE Flags
  965.     FOR I% = 6 TO 21
  966.         READ Me$: FastPrint I%, 6, Me$, TextColour%
  967.     NEXT I%
  968.     Panel 7, 51, 16, 27, 0, 0
  969.     Panel 6, 50, 16, 27, 7, 48
  970.     FastPrint 7, 53, "CURRENT FLAG SETTINGS", 48
  971.     FastPrint 8, 50, "╟" + STRING$(25, "─") + "╢", 48
  972.     FastPrint 8, 50, "╟", 55
  973.     FOR I% = 10 TO 17
  974.         READ Me$: FastPrint I%, 52, Me$, 48
  975.     NEXT I%
  976.     FOR I% = 1 TO 16
  977.         READ CoOrd%(I%, 1), CoOrd%(I%, 2): F% = GetFlag%(I%)
  978.         F$ = LTRIM$(RTRIM$(STR$(F%))): F$ = RIGHT$("   " + F$, 3)
  979.         FastPrint CoOrd%(I%, 1), CoOrd%(I%, 2), F$, 48
  980.     NEXT I%
  981.     FastPrint 19, 52, "Enter Flag Number:", 48
  982.     FastPrint 25, 3, SPACE$(78), StatColour%
  983.     FastPrint 25, 3, "Press <ESC> to Abort", StatColour%
  984.     DO
  985.        LOCATE 19, 73: HotKey% = FALSE
  986.        Number$ = RevInput$(2, 0, Number$, Nu$, 1, "REVINPUT", 0, HotKey%)
  987.        IF HotKey% THEN
  988.           Abort% = TRUE
  989.        ELSE
  990.           Number% = VAL(Number$)
  991.           IF Number% < 1 OR Number% > 16 THEN
  992.              BEEP
  993.           ELSE
  994.              Number$ = LTRIM$(RTRIM$(STR$(Number%)))
  995.              Number$ = RIGHT$("  " + Number$, 2)
  996.              FastPrint 19, 73, Number$, 48
  997.              Setting% = GetFlag%(Number%)
  998.              Setting$ = RIGHT$("   " + LTRIM$(RTRIM$(STR$(Setting%))), 3)
  999.              LOCATE CoOrd%(Number%, 1), CoOrd%(Number%, 2)
  1000.              Setting$ = RevInput$(3, 0, Setting$, Nu$, 1, "REVINPUT",_
  1001.                                   0, HotKey%)
  1002.              IF HotKey% THEN
  1003.                 Abort% = TRUE
  1004.              ELSE
  1005.                 Setting% = VAL(Setting$)
  1006.                 IF Setting% < 0 OR Setting% > 255 THEN
  1007.                    BEEP
  1008.                 ELSE
  1009.                    SetFlag Number%, Setting%
  1010.                 END IF
  1011.                 Setting% = GetFlag%(Number%)
  1012.                 Setting$ = RIGHT$("   " + LTRIM$(RTRIM$(STR$(Setting%))), 3)
  1013.                 FastPrint CoOrd%(Number%, 1), CoOrd%(Number%, 2), Setting$, 48
  1014.              END IF
  1015.           END IF
  1016.        END IF
  1017.     LOOP UNTIL Abort%
  1018.     ERASE CoOrd%: Frame Head$, 0
  1019. GOTO D500
  1020.  
  1021. '┌────────────────────────────────────────────────────────────────────────┐
  1022. '│      Expanded Memory services.                                         │
  1023. '└────────────────────────────────────────────────────────────────────────┘
  1024. '
  1025. D520:
  1026.     Panel 4, 1, 21, 80, 1, TextColour%: Handle% = FALSE
  1027.     FastPrint 6, 23, "┌─────────────────────────────────┐", TextColour%
  1028.     FastPrint 7, 23, "│  EXPANDED MEMORY DEMONSTRATION  │", TextColour%
  1029.     FastPrint 8, 23, "└─────────────────────────────────┘", TextColour%
  1030.     Version% = EmsVersion%: PageFrame% = EmsFrame%
  1031.     EmsTotal% = EmsPages%(0): EmsFree% = EmsPages%(1)
  1032.     LIM$ = LTRIM$(RTRIM$(STR$(Version%))): L% = LEN(LIM$)
  1033.     IF L% > 1 THEN LIM$ = LEFT$(LIM$, L% - 1) + "." + RIGHT$(LIM$, 1)
  1034.     Me$ = "You have" + STR$(EmsTotal% * 16) + " KiloBytes of LIM "_
  1035.         + LIM$ + " Expanded Memory installed."
  1036.     FastPrint 10, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1037.     Me$ = "The Page Frame segment is at address " + HEX$(PageFrame%) + " Hex,"
  1038.     FastPrint 11, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1039.     Me$ = "and there are" + STR$(EmsFree%) + " pages ("_
  1040.         + LTRIM$(RTRIM$(STR$(EmsFree% * 16))) + "KB) free."
  1041.     FastPrint 12, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1042.     IF EmsFree% < 4 THEN
  1043.        Me$ = "Sorry, that's not enough for this demonstration."
  1044.        FastPrint 15, 40 - (LEN(Me$) \ 2), Me$, TextColour%: GOTO D525
  1045.     END IF
  1046.     SLEEP 1: KeyFlush: Me$ = "Requesting four pages for this demonstration,"
  1047.     FastPrint 14, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1048.     EmsRequest 4, Handle%: IF Handle% = 0 THEN GOTO D529
  1049.     Pages% = EmsOwned%(Handle%): IF Pages% < 4 THEN GOTO D529
  1050.     Me$ = "they have been assigned to Handle" + STR$(Handle%) + "."
  1051.     FastPrint 15, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1052.     Me$ = "Saving this screen to page 1": SLEEP 1: KeyFlush
  1053.     FastPrint 17, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1054.     IF Colour% THEN Segment% = &HB800 ELSE Segment% = &HB000
  1055.     SLEEP 1: KeyFlush: Me$ = "Drawing and saving three other screens ...."
  1056.     FastPrint 17, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1057.     EmsPut Segment%, 0, 4000, 1, Handle%, Done%
  1058.     IF NOT Done% THEN GOTO D529
  1059.     SLEEP 1: KeyFlush: FastPrint 25, 1, SPACE$(80), StatColour%
  1060.     Page% = 2: Row% = 11: Col% = 35
  1061.     RESTORE Numbers
  1062.     DO
  1063.         READ Columns%, BackGround%: IF NOT Colour% THEN BackGround% = 0
  1064.         Attr% = Attribute%(15, BackGround%)
  1065.         BackFill 4, 1, 21, 80, Attr%
  1066.         Scroll 1, 9, 2, 23, 79, 0, Attr%
  1067.         FastPrint 10, 36, "P A G E", Attr%
  1068.         FOR I% = 1 TO Columns%
  1069.             READ Item$: IF Item$ = "F" THEN Item$ = "12345678"
  1070.             FOR J% = 1 TO LEN(Item$)
  1071.                 Rows% = VAL(MID$(Item$, J%, 1))
  1072.                 FastPrint Row% + Rows%, Col% + I%, CHR$(219), Attr%
  1073.             NEXT J%
  1074.         NEXT I%
  1075.         EmsPut Segment%, 0, 4000, Page%, Handle%, Done%
  1076.         Page% = Page% + 1: IF NOT Done% THEN EXIT DO
  1077.         SLEEP 1: KeyFlush
  1078.     LOOP UNTIL Page% > 4
  1079.     IF NOT Done% THEN GOTO D529
  1080.     EmsGet Segment%, 0, 4000, 1, Handle%, Done%
  1081.     IF NOT Done% THEN GOTO D529
  1082.     Me$ = "Now I'll let YOU bring 'em back again ...."
  1083.     FastPrint 19, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1084.     FastPrint 22, 24, "Press a key when you're ready >", TextColour%
  1085.     LOCATE 22, 56, 1: Page% = 4: IF KeyIn% = 27 THEN GOTO D525
  1086.     DO
  1087.        EmsGet Segment%, 0, 4000, Page%, Handle%, Done%
  1088.        IF NOT Done% THEN EXIT DO
  1089.        FastPrint 25, 63, "Press a key >", StatColour%
  1090.        LOCATE 25, 77: KeyPress% = KeyIn%
  1091.        Page% = Page% - 1
  1092.     LOOP WHILE Page% > 1
  1093.     IF Done% THEN EmsGet Segment%, 0, 4000, 1, Handle%, Done%
  1094.     LOCATE , , 0: IF NOT Done% THEN GOTO D529
  1095.     Me$ = "The demonstration was completely successful, which proves that"
  1096.     FastPrint 17, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1097.     Me$ = "your Expanded Memory is in good working order."
  1098.     FastPrint 18, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1099. D525:
  1100.     IF Handle% THEN
  1101.        SLEEP 1: KeyFlush: EmsRelease Handle%
  1102.        Me$ = "We released all pages assigned to handle" + STR$(Handle%)_
  1103.            + " before finishing,"
  1104.        FastPrint 20, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1105.        Me$ = "otherwise no other program would have been able to use them."
  1106.        FastPrint 21, 40 - (LEN(Me$) \ 2), Me$, TextColour%
  1107.     END IF
  1108.     SLEEP 2: KeyFlush
  1109. GOTO D500
  1110.  
  1111. D529:
  1112.     Me$ = "An EMM error" + STR$(EmsError%) + " has just occurred ..."
  1113.     MisTake 12, Me$, 0, Mouse%
  1114. GOTO D525
  1115.  
  1116. '┌────────────────────────────────────────────────────────────────────────┐
  1117. '│      Miscellaneous functions and procedures.                           │
  1118. '└────────────────────────────────────────────────────────────────────────┘
  1119. '
  1120. D600:
  1121.     Menu$(0) = "DHEFP"
  1122.     Menu$(1) = "&Date entry and validation"
  1123.     Menu$(2) = "&Hardware equipment list"
  1124.     Menu$(3) = "&Encryption of text"
  1125.     Menu$(4) = "&Fast string sorting"
  1126.     Menu$(5) = "&Percentage box"
  1127.     Abort% = FALSE
  1128.     VerMenu 4, 34, BarColour%, 1, 5, "EXAMPLES", Menu$(),_
  1129.             Choice%, Nxt%, Bar%, 1, RootName$, Mouse%, HotKeys%
  1130.     IF Nxt% THEN GOTO D002
  1131.     SELECT CASE Choice%
  1132.         CASE 1
  1133.              GOTO D610
  1134.         CASE 2
  1135.              GOTO D620
  1136.         CASE 3
  1137.              GOTO D630
  1138.         CASE 4
  1139.              GOTO D640
  1140.         CASE 5
  1141.              GOTO D650
  1142.         CASE ELSE
  1143.     END SELECT
  1144. GOTO D002
  1145.  
  1146. '┌────────────────────────────────────────────────────────────────────────┐
  1147. '│      Long Date Routine.                                                │
  1148. '└────────────────────────────────────────────────────────────────────────┘
  1149. '
  1150. D610:
  1151.     IF Colour% THEN Attrib% = 48 ELSE Attrib% = 112
  1152.     HotKey% = FALSE: IF ToDay$ = "" THEN ToDay$ = SPACE$(20)
  1153.     Context% = 1: Topic$ = "LONGDATE": WW% = LEN(ToDay$)
  1154.     WT% = 41 - (WW% \ 2): PopUp 8, 24, 8, 34, Attrib%, 3, 2, -1
  1155.     FastPrint 9, 33, "Today's date is:", Attrib%
  1156.     FastPrint 10, WT%, ToDay$, Attrib%
  1157.     Ok% = Verify%(1, 12, "Is this correct", 0, Mouse%)
  1158.     IF NOT Ok% THEN
  1159.        FastPrint 12, 32, "Enter correct date", Attrib%
  1160.        Temp$ = "": LOCATE 14, 37
  1161.        Temp$ = DateInput$(Temp$, 1, "DATINPUT", HotKey%)
  1162.        IF HotKey% THEN
  1163.           Abort% = TRUE
  1164.        ELSE
  1165.           Now$ = Temp$: MO% = VAL(MID$(Temp$, 4, 2))
  1166.           DY% = VAL(LEFT$(Temp$, 2)): YR% = VAL(RIGHT$(Temp$, 2))
  1167.           ToDay$ = LongDate$(DY%, MO%, YR%): OL% = LEN(ToDay$)
  1168.           IF OL% > 0 THEN
  1169.              FastPrint 25, 41, SPACE$(40), StatColour%
  1170.              FastPrint 25, 79 - OL%, ToDay$, StatColour%
  1171.           END IF
  1172.        END IF
  1173.     END IF
  1174.     ShutUp -1
  1175. GOTO D600
  1176.  
  1177. '┌────────────────────────────────────────────────────────────────────────┐
  1178. '│      Equipment List.                                                   │
  1179. '└────────────────────────────────────────────────────────────────────────┘
  1180. '
  1181. D620:
  1182.     Panel 4, 1, 21, 80, 1, TextColour%
  1183.     Cols$ = "80": Video$ = "colour": REDIM Model(0 TO 8) AS STRING
  1184.     RESTORE HWare: FOR I% = 0 TO 8: READ Model(I%): NEXT
  1185.     Equipment% = PeekWord&(&H40, &H10): Flag$ = STRING$(16, "0")
  1186.     Computer% = FarPeek%(&HF000, &HFFFE)
  1187.     Computer% = Computer% - &HF8: IF Computer% < 0 THEN Computer% = 0
  1188.     FastPrint 8, 38, "IBM " + Model(Computer%) + " or compatible", TextColour%
  1189.     Chip% = Cpu%: CoPro% = MathsChip%
  1190.     SELECT CASE Chip%
  1191.         CASE IS < 0
  1192.              Me$ = " an Intel 80C" + LTRIM$(RTRIM$(STR$(ABS(Chip%))))
  1193.         CASE 20, 30
  1194.              Me$ = " a NEC V" + LTRIM$(RTRIM$(STR$(Chip%)))
  1195.         CASE 88 TO 486
  1196.              Me$ = " an Intel 80" + LTRIM$(RTRIM$(STR$(Chip%)))
  1197.         CASE ELSE
  1198.              Me$ = " an unknown"
  1199.     END SELECT
  1200.     Me$ = "with" + Me$ + " microprocessor"
  1201.     FastPrint 9, 38, Me$, TextColour%
  1202.     FOR I% = 15 TO 0 STEP -1
  1203.         IF BitTest%(Equipment%, I%) THEN
  1204.            MID$(Flag$, 16 - I%, 1) = "1"
  1205.         END IF
  1206.     NEXT I%
  1207.     FastPrint  8, 3, " F E D C B A 9 8 7 6 5 4 3 2 1 0", TextColour%
  1208.     FastPrint  9, 3, "┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐", TextColour%
  1209.     FastPrint 10, 3, "│", TextColour%: Col% = 4
  1210.     FOR I% = 1 TO 16
  1211.         FastPrint 10, Col%, MID$(Flag$, I%, 1) + "│", TextColour%
  1212.         Col% = Col% + 2
  1213.     NEXT I%
  1214.     FastPrint 10, 38, "ROM BIOS Equipment Flag at 0040:0010", TextColour%
  1215.     FastPrint 11, 3, "└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘", TextColour%
  1216.     FastPrint 12, 3, " │ │   │ │ │ │   │ │ │ │ │ │ │ │", TextColour%
  1217.     FastPrint 13, 3, " │ │   │ │ │ │   │ │ │ │ │ │ │ └─", TextColour%
  1218.     FastPrint 14, 3, " │ │   │ │ │ │   │ │ │ │ │ │ └───", TextColour%
  1219.     FastPrint 15, 3, " │ │   │ │ │ │   │ │ │ │ └─┴─────", TextColour%
  1220.     FastPrint 16, 3, " │ │   │ │ │ │   │ │ └─┴─────────", TextColour%
  1221.     FastPrint 17, 3, " │ │   │ │ │ │   └─┴─────────────", TextColour%
  1222.     FastPrint 18, 3, " │ │   │ └─┴─┴───────────────────", TextColour%
  1223.     FastPrint 19, 3, " │ │   └─────────────────────────", TextColour%
  1224.     FastPrint 20, 3, " └─┴─────────────────────────────", TextColour%
  1225.     FastPrint 13, 38, "Floppy drives installed?", TextColour%
  1226.     IF MID$(Flag$, 16, 1) = "1" THEN Me$ = "Yes" ELSE Me$ = "No"
  1227.     FastPrint 13, 68, Me$, TextColour%
  1228.     FastPrint 14, 38, "Maths coprocessor installed?", TextColour%
  1229.     IF MID$(Flag$, 15, 1) = "1" THEN Me$ = "Yes" ELSE Me$ = "No"
  1230.     IF CoPro% > 0 THEN Me$ = "80" + LTRIM$(RTRIM$(STR$(CoPro%)))
  1231.     FastPrint 14, 68, Me$, TextColour%
  1232.     FastPrint 15, 38, "Original PC motherboard RAM", TextColour%
  1233.     IF Computer% = 1 THEN
  1234.        Ram% = (BinDec&(MID$(Flag$, 13, 2)) + 1) * 16
  1235.        Me$ = RIGHT$("  " + LTRIM$(RTRIM$(STR$(Ram%))), 2) + "KB"
  1236.     ELSE
  1237.        Me$ = "n/a"
  1238.     END IF
  1239.     FastPrint 15, 68, Me$, TextColour%
  1240.     FastPrint 16, 38, "Initial Video mode", TextColour%
  1241.     Mode% = BinDec&(MID$(Flag$, 11, 2))
  1242.     IF Mode% = 1 THEN Cols$ = "40"
  1243.     IF Mode% = 7 THEN Video$ = "mono"
  1244.     FastPrint 16, 58, Cols$ + " column " + Video$, TextColour%
  1245.     FastPrint 17, 38, "Number of floppy drives", TextColour%
  1246.     Mode% = BinDec&(MID$(Flag$, 9, 2)) + 1
  1247.     Me$ = LTRIM$(RTRIM$(STR$(Mode%))): FastPrint 17, 68, Me$, TextColour%
  1248.     FastPrint 18, 38, "Number of serial ports", TextColour%
  1249.     Mode% = BinDec&(MID$(Flag$, 5, 3)) + 1
  1250.     Me$ = LTRIM$(RTRIM$(STR$(Mode%))): FastPrint 18, 68, Me$, TextColour%
  1251.     FastPrint 19, 38, "Games adaptor installed?", TextColour%
  1252.     IF MID$(Flag$, 3, 1) = "1" THEN Me$ = "Yes" ELSE Me$ = "No"
  1253.     FastPrint 19, 68, Me$, TextColour%
  1254.     FastPrint 20, 38, "Number of parallel printers", TextColour%
  1255.     Mode% = BinDec&(LEFT$(Flag$, 2))
  1256.     Me$ = LTRIM$(RTRIM$(STR$(Mode%))): FastPrint 20, 68, Me$, TextColour%
  1257.     FastPrint 25, 1, SPACE$(80), StatColour%
  1258.     FastPrint 25, 3, "Press a key to continue", StatColour%
  1259.     IF Mouse% THEN MouseShow
  1260.     DO
  1261.        IF Mouse% THEN
  1262.           MouseNow LeftButton%, RightButton%, xMouse%, yMouse%
  1263.           IF LeftButton% THEN
  1264.              IF yMouse% > 15 AND yMouse% < 24 THEN
  1265.                 Z$ = "": EXIT DO
  1266.              END IF
  1267.           END IF
  1268.        END IF
  1269.        Z$ = INKEY$
  1270.     LOOP WHILE Z$ = ""
  1271.     Frame Head$, 0: ERASE Model
  1272.     IF Mouse% THEN
  1273.        CALL MouseHide: IF Z$ = "" THEN GOTO D002
  1274.     END IF
  1275. GOTO D600
  1276.  
  1277. '   Text Encryption.
  1278. '
  1279. D630:
  1280.     Panel 4, 1, 21, 80, 1, TextColour%
  1281.     Done% = FALSE: Abort% = FALSE: HotKey% = FALSE
  1282.     Text$ = "": Code$ = ""
  1283.     RESTORE Crypt
  1284.     FOR I% = 1 TO 5
  1285.         READ Me$: FastPrint 6 + I%, 11, Me$, TextColour%
  1286.     NEXT I%
  1287.     IF Colour% THEN Attrib% = 32 ELSE Attrib% = 112
  1288.     DO WHILE Text$ = ""
  1289.        PopUp 17, 19, 4, 44, Attrib%, 2, 2, -1
  1290.        FastPrint 18, 27, "Enter string to be encrypted", Attrib%
  1291.        LOCATE 19, 21
  1292.        Text$ = RevInput$(40, 0, "", "", 1, "REVINPUT", -1, HotKey%)
  1293.        ShutUp -1: IF HotKey% THEN Abort% = TRUE: EXIT DO
  1294.        Text$ = LTRIM$(RTRIM$(Text$))
  1295.        IF Text$ = "" THEN
  1296.           MisTake 9, "You can't encrypt an empty string!", 0, Mouse%
  1297.        END IF
  1298.     LOOP
  1299.     IF NOT Abort% THEN
  1300.        IF Colour% THEN Attrib% = 78 ELSE Attrib% = 112
  1301.        DO WHILE Code$ = ""
  1302.           PopUp 17, 19, 4, 44, Attrib%, 2, 2, -1
  1303.           FastPrint 18, 25, "Enter string to encrypt it with", Attrib%
  1304.           LOCATE 19, 21
  1305.           Code$ = RevInput$(40, 0, "", "", 1, "REVINPUT", -1, HotKey%)
  1306.           ShutUp -1: IF HotKey% THEN Abort% = TRUE: EXIT DO
  1307.           Code$ = LTRIM$(RTRIM$(Code$))
  1308.           IF Code$ = "" THEN
  1309.              MisTake 12, "An empty string is no use!", 0, Mouse%
  1310.           END IF
  1311.        LOOP
  1312.        IF NOT Abort% THEN
  1313.           Cipher Text$, Code$: Me$ = "Encrypted string >  " + Text$
  1314.           FastPrint 14, 11, Me$, TextColour%
  1315.           IF Colour% THEN Attrib% = 48 ELSE Attrib% = 112
  1316.           DO
  1317.              DO
  1318.                 PopUp 19, 19, 4, 44, Attrib%, 2, 2, -1
  1319.                 FastPrint 20, 27, "Enter key string once again", Attrib%
  1320.                 LOCATE 21, 21
  1321.                 DeCode$ = RevInput$(40, 0, "", "", 1, "REVINPUT", -1, HotKey%)
  1322.                 ShutUp -1: IF HotKey% THEN Abort% = TRUE: EXIT DO
  1323.                 DeCode$ = LTRIM$(RTRIM$(DeCode$))
  1324.                 IF DeCode$ = "" THEN
  1325.                    MisTake 12, "An empty string is no use!", 0, Mouse%
  1326.                 END IF
  1327.              LOOP WHILE DeCode$ = ""
  1328.              IF Abort% THEN
  1329.                 Done% = TRUE
  1330.              ELSE
  1331.                 Me$ = Text$: Cipher Me$, DeCode$
  1332.                 Me$ = "Decrypted string >  " + Me$
  1333.                 FastPrint 16, 11, Me$, TextColour%
  1334.                 IF Code$ = DeCode$ THEN
  1335.                    FastPrint 19, 33, "That's the one!", TextColour%
  1336.                    Done% = TRUE
  1337.                 ELSE
  1338.                    Me$ = "Whoops, that's not right"
  1339.                    IF MisMatch% THEN
  1340.                       Me$ = Me$ + " either"
  1341.                    END IF
  1342.                    MisTake 9, Me$ + "!", 0, Mouse%
  1343.                    MisMatch% = TRUE
  1344.                 END IF
  1345.              END IF
  1346.           LOOP UNTIL Done%
  1347.        END IF
  1348.     END IF
  1349. GOTO D600
  1350.  
  1351. '   Demonstrate string array sorting and scan routines.
  1352. '
  1353. D640:
  1354.     Room% = TRUE: Me$ = "Not enough memory for sort array"
  1355.     ON ERROR GOTO D645
  1356.     REDIM Array(1 TO 1000) AS STRING
  1357.     ON ERROR GOTO Trap
  1358.     IF NOT Room% THEN GOTO D600
  1359.     RESTORE Strings: IF Colour% THEN COLOR 0, 7
  1360.     Panel 4, 1, 21, 80, 1, TextColour%
  1361.     FOR Row% = 6 TO 7
  1362.         READ Me$: LOCATE Row%, 3: PRINT Me$
  1363.     NEXT Row%
  1364.     FOR I% = 1 TO 1000
  1365.         FOR J% = 1 TO Rand%(5, 11)
  1366.             Array(I%) = Array(I%) + CHR$(Rand%(0, 25) + 65)
  1367.         NEXT J%
  1368.     NEXT I%
  1369.     LOCATE 7, 50: PRINT "done!"
  1370.     LOCATE 9, 3: PRINT "Unsorted array"
  1371.     FOR I% = 1 TO 3
  1372.         Me$ = "Element " + RIGHT$("    " + LTRIM$(RTRIM$(STR$(I%))), 4)
  1373.         LOCATE 10 + I%, 3: PRINT Me$; " "; Array(I%)
  1374.     NEXT I%
  1375.     LOCATE 14, 3: PRINT "  .": Row% = 15
  1376.     FOR I% = 998 TO 1000
  1377.         Me$ = "Element " + RIGHT$("    " + LTRIM$(RTRIM$(STR$(I%))), 4)
  1378.         LOCATE Row%, 3: PRINT Me$; " "; Array(I%): Row% = Row% + 1
  1379.     NEXT I%
  1380.     PopUp 19, 13, 5, 53, BarColour%, 4, 4, 0
  1381.     READ Me$: FastPrint 21, 15, Me$, BarColour%
  1382.     LOCATE 21, 62: Legal$ = "AaDd"
  1383.     A$ = UCASE$(RevInput$(1, 0, "A", Legal$, 1, "REVINPUT", 0, HotKey%))
  1384.     ShutUp 0: IF Colour% THEN COLOR 0, 7
  1385.     IF HotKey% THEN Abort% = TRUE: GOTO D642
  1386.     IF A$ = "D" THEN
  1387.        Direction% = 1: A$ = "descending"
  1388.     ELSE
  1389.        Direction% = 0: A$ = "ascending"
  1390.     END IF
  1391.     LOCATE 19, 3: PRINT "Sorting the array into "; A$; " order ....";
  1392.     First% = LBOUND(Array): Last% = UBOUND(Array)
  1393.     X! = TIMER
  1394.     StringSort Direction%, 1000, VARPTR(Array(First%))
  1395.     Y! = TIMER
  1396.     PRINT " done!": LOCATE 9, 41: PRINT "Sorted array"
  1397.     FOR I% = 1 TO 3
  1398.         Me$ = "Element " + RIGHT$("    " + LTRIM$(RTRIM$(STR$(I%))), 4)
  1399.         LOCATE 10 + I%, 41: PRINT Me$; " "; Array(I%)
  1400.     NEXT I%
  1401.     LOCATE 14, 41: PRINT "  .": Row% = 15
  1402.     FOR I% = 998 TO 1000
  1403.         Me$ = "Element " + RIGHT$("    " + LTRIM$(RTRIM$(STR$(I%))), 4)
  1404.         LOCATE Row%, 41: PRINT Me$; " "; Array(I%): Row% = Row% + 1
  1405.     NEXT I%
  1406.     LOCATE 20, 3: PRINT USING "The sort took ###.### seconds"; Y! - X!
  1407.     Ok% = Verify%(1, 16, "Search array", 0, Mouse%): IF NOT Ok% THEN GOTO D642
  1408. D641:
  1409.     PopUp 12, 17, 8, 46, BarColour%, 3, 4, -1: HotKey% = 0
  1410.     FastPrint 14, 20, "Enter a string to insert into the array", BarColour%
  1411.     LOCATE 15, 30: A$ = RevInput$(20, 0, "", "", 1, "REVINPUT", 0, HotKey%)
  1412.     IF HotKey% THEN Abort% = TRUE: ShutUp -1: GOTO D642
  1413.     A$ = LTRIM$(RTRIM$(A$))
  1414.     Me$ = "Enter element to insert it into (1-"_
  1415.         + LTRIM$(RTRIM$(STR$(Last%))) + ") "
  1416.     FastPrint 16, 40 - (LEN(Me$) \ 2), Me$, BarColour%
  1417.     LOCATE 17, 38: Temp$ = RevInput$(4, 0, "", Nu$, 1, "REVINPUT", 0, HotKey%)
  1418.     ShutUp -1: IF Colour% THEN COLOR 0, 7
  1419.     IF HotKey% THEN
  1420.        Abort% = TRUE: GOTO D642
  1421.     ELSE
  1422.        S% = VAL(Temp$)
  1423.        IF S% < First% OR S% > Last% THEN
  1424.           MisTake 9, "OUT OF RANGE!", 0, Mouse%
  1425.           GOTO D641
  1426.        ELSE
  1427.           Array(S%) = A$
  1428.           IF S% < 4 THEN
  1429.              LOCATE 10 + S%, 54: PRINT SPACE$(12);
  1430.              LOCATE 10 + S%, 54: PRINT A$;
  1431.           ELSEIF S% > 997 THEN
  1432.              LOCATE S% - 983, 54: PRINT SPACE$(12);
  1433.              LOCATE S% - 983, 54: PRINT A$;
  1434.           END IF
  1435.        END IF
  1436.     END IF
  1437.     LOCATE 21, 3: PRINT "Scanning array for " + A$ + " .... ";
  1438.     X! = TIMER
  1439.     Match% = StringScan%(A$, 1000, First%, VARPTR(Array$(First%)))
  1440.     Y! = TIMER
  1441.     PRINT "found it at element"; Match%
  1442.     LOCATE 22, 3: PRINT USING "The search took ###.### seconds"; Y! - X!
  1443. D642:
  1444.     ERASE Array: IF Colour% THEN COLOR 7, 0
  1445. GOTO D002
  1446.  
  1447. D645:
  1448.     MisTake 9, Me$, 0, Mouse%
  1449.     Room% = FALSE
  1450. RESUME NEXT
  1451.  
  1452. '   Display a popup window with a percentage bar measuring the progress
  1453. '   of a function or procedure.
  1454. '
  1455. D650:
  1456.     PerCentBox 1, "Passing the time away", 0, 0
  1457.     StartTime& = TIMER
  1458.     DO
  1459.         ThisTime& = TIMER - StartTime&
  1460.         Percentage% = (ThisTime& / 30) * 100
  1461.         PerCentBox 2, "", 0, Percentage%
  1462.         IF INKEY$ = CHR$(27) THEN EXIT DO
  1463.     LOOP UNTIL ThisTime& > 30
  1464.     PerCentBox 3, "", 0, 0
  1465. GOTO D600
  1466.  
  1467. '┌────────────────────────────────────────────────────────────────────────┐
  1468. '│      Graphics examples.                                                │
  1469. '└────────────────────────────────────────────────────────────────────────┘
  1470. '
  1471. D700:
  1472.     VideoMode Colour%, MaxRes%, VideoRam%
  1473.     IF MaxRes% > 8 THEN
  1474.        Menu$(0) = "CP#SR"
  1475.     ELSEIF MaxRes% AND MaxRes% <> 3 THEN
  1476.        Menu$(0) = "C #  "
  1477.     ELSE
  1478.        Menu$(0) = "  #  "
  1479.     END IF
  1480.     Menu$(1) = "Graphics &characters"
  1481.     Menu$(2) = "Video &panning"
  1482.     Menu$(4) = "&Save screen to file"
  1483.     Menu$(5) = "&Restore screen"
  1484.     VerMenu 4, 47, BarColour%, 1, 5, "GRAPHICS", Menu$(),_
  1485.             Choice%, Nxt%, Bar%, 1, RootName$, Mouse%, HotKeys%
  1486.     IF Nxt% THEN GOTO D002
  1487.     SELECT CASE Choice%
  1488.         CASE 1
  1489.              GOTO D710
  1490.         CASE 2
  1491.              GOTO D720
  1492.         CASE 4, 5
  1493.              GOTO D730
  1494.         CASE ELSE
  1495.     END SELECT
  1496. GOTO D002
  1497.  
  1498. '┌────────────────────────────────────────────────────────────────────────┐
  1499. '│      Graphics characters.                                              │
  1500. '└────────────────────────────────────────────────────────────────────────┘
  1501. '
  1502. D710:
  1503.     SELECT CASE MaxRes%
  1504.         CASE 2                                  ' Colour Graphics Adaptor
  1505.              Mode = 1
  1506.              SCREEN 1                           ' 320 x 200   4-colour
  1507.         CASE 9                                  ' Enhanced Graphics Adaptor
  1508.              Mode = 2
  1509.              SCREEN 9                           ' 640 x 350  16-colour
  1510.              WINDOW SCREEN (0, 0)-(319, 199)
  1511.         CASE 13
  1512.              IF VideoRam% > 64 THEN
  1513.                 Mode = 3                        ' Video Graphics Array
  1514.                 SCREEN 12                       ' 640 X 480  16-colour
  1515.                 WINDOW SCREEN (0, 0)-(319, 199)
  1516.              ELSE
  1517.                 Mode = 4                        ' Multicolour Graphics Array
  1518.                 SCREEN 13                       ' 320 x 200 256-colour
  1519.              END IF
  1520.         CASE ELSE
  1521.              MisTake 9, "Incompatible Video Card!", 0, Mouse%
  1522.              GOTO D002
  1523.     END SELECT
  1524.  
  1525.     REDIM Hue(1 TO 4) AS INTEGER
  1526.     PLAY "mft240o3l8d#fgl8b-p8l8gl2b-"          ' Hoop-la!
  1527.     RESTORE Title
  1528.     PLAY "mbl8t255o3bo4cdo3bo4co3abgaf#t120gbt200dp8"
  1529.     FOR I% = 1 TO 4: READ Hue(I%): NEXT
  1530.     READ Count%, X1%, Y1%, X2%, Y2%
  1531.     LINE (X1%, Y1%)-(X2%, Y2%), Hue(Mode)
  1532.     FOR I% = 1 TO Count%
  1533.         READ X%, Y%: LINE -(X%, Y%), Hue(Mode)
  1534.     NEXT I%
  1535.     LINE (0, 165)-(259, 165), Hue(Mode)
  1536.     IF Mode = 1 THEN
  1537.        Road$ = CHR$(&H22) + CHR$(11) + CHR$(&H88) + CHR$(44)
  1538.        Tree$ = CHR$(&H11) + CHR$(&H88) + CHR$(&H44) + CHR$(&H22)
  1539.        PAINT (5, 5), 2, Hue(Mode)
  1540.        PAINT (310, 100), 1, Hue(Mode)
  1541.        PAINT (250, 163), Road$, Hue(Mode)
  1542.        PAINT (10, 100), 1, Hue(Mode)
  1543.        LINE (0, 165)-(319, 165), 0
  1544.     ELSE
  1545.        PAINT (5, 5), 9, Hue(Mode)
  1546.        PAINT (310, 100), Hue(Mode), Hue(Mode)
  1547.        PAINT (250, 163), 8, Hue(Mode)
  1548.        PAINT (10, 100), Hue(Mode), Hue(Mode)
  1549.        LINE (0, 165)-(319, 165), 0
  1550.     END IF
  1551.     PSET (57, 113), Hue(Mode)
  1552.     FOR I% = 1 TO 4: READ Hue(I%): NEXT
  1553.     READ Count%, X1%, Y1%, X2%, Y2%
  1554.     LINE (X1%, Y1%)-(X2%, Y2%), Hue(Mode)
  1555.     FOR I% = 1 TO Count%
  1556.         READ X%, Y%: LINE -(X%, Y%), Hue(Mode)
  1557.     NEXT I%
  1558.     CIRCLE (127, 109), 45, Hue(Mode), 1.35, 3.1, .3
  1559.     CIRCLE (166, 102), 35, Hue(Mode), 1, 2.8, .43
  1560.     CIRCLE (214, 95), 32, Hue(Mode), 1.1, 2.8, .39
  1561.     CIRCLE (259, 94), 38, Hue(Mode), .7, 2.6, .48
  1562.     CIRCLE (296, 96), 33, Hue(Mode), .1, 1.92, .45
  1563.     IF Mode = 1 THEN
  1564.        PAINT (215, 90), Tree$, Hue(Mode)
  1565.     ELSE
  1566.        PAINT (215, 90), Hue(Mode), Hue(Mode)
  1567.     END IF
  1568.     PSET (83, 108), Hue(Mode)
  1569.     FOR I% = 1 TO 4: READ Hue(I%): NEXT
  1570.     READ Count%, X1%, Y1%, X2%, Y2%
  1571.     LINE (X1%, Y1%)-(X2%, Y2%), Hue(Mode)
  1572.     FOR I% = 1 TO Count%
  1573.         READ X%, Y%: LINE -(X%, Y%), Hue(Mode)
  1574.     NEXT I%
  1575.     LINE (270, 72)-(276, 86), Hue(Mode), BF
  1576.     PAINT (260, 95), Hue(Mode), Hue(Mode)
  1577.     IF Mode = 1 THEN
  1578.        LINE (215, 86)-(260, 73), 0: LINE -(305, 86), 0
  1579.        LINE (226, 88)-(246, 93), 1, BF: LINE (274, 88)-(294, 93), 1, BF
  1580.        LINE (255, 88)-(265, 98), 2, BF: LINE (271, 70)-(272, 71), 0, BF
  1581.        LINE (274, 70)-(275, 71), 0, BF
  1582.     ELSE
  1583.        LINE (215, 86)-(260, 73), 4: LINE -(305, 86), 4
  1584.        LINE (226, 88)-(246, 93), 26, BF: LINE (274, 88)-(294, 93), 26, BF
  1585.        LINE (255, 88)-(265, 98), 6, BF: LINE (271, 70)-(272, 71), 6, BF
  1586.        LINE (274, 70)-(275, 71), 6, BF: LINE (319, 98)-(220, 98), 8
  1587.        LINE -(186, 99), 8: LINE -(159, 101), 8: LINE -(210, 100), 8
  1588.        LINE -(319, 100), 8: PAINT (300, 99), 8, 8
  1589.     END IF
  1590.     PLAY "t255o4cdecdo3bo4co3abgt120f#at200dp8"
  1591.     FOR I% = 1 TO 4: READ Hue(I%): NEXT
  1592.     LINE (320, 102)-(285, 102), Hue(Mode)
  1593.     CIRCLE (292, 102), 6, Hue(Mode), .8, 3.1415, .7
  1594.     CIRCLE (302, 102), 9, Hue(Mode), .8, 2.5, .75
  1595.     CIRCLE (318, 102), 16, Hue(Mode), .6, 2.7, .85
  1596.     IF Mode = 1 THEN
  1597.        LINE (320, 94)-(307, 93), 1
  1598.        PAINT (310, 95), Tree$, Hue(Mode), CHR$(&HAA)
  1599.        GraPrint 256, 78, "A", GrAttrib%(0, 3), 1
  1600.        LINE (76, 6)-(244, 32), 3, BF: LINE (76, 32)-(244, 52), 1, BF
  1601.     ELSE
  1602.        PAINT (310, 100), Hue(Mode), Hue(Mode)
  1603.        IF Mode = 2 THEN
  1604.           GraPrint 495, 136, "Club-PC", GrAttrib%(1, -1), 1
  1605.        ELSEIF Mode = 3 THEN
  1606.           GraPrint 495, 190, "Club-PC", GrAttrib%(1, -1), 1
  1607.        ELSE
  1608.           GraPrint 248, 78, "CPC", GrAttrib%(27, -1), 1
  1609.        END IF
  1610.        LINE (76, 6)-(244, 32), 14, BF: LINE (76, 32)-(244, 52), 15, BF
  1611.     END IF
  1612.     Me$ = "GRAPHICS": I% = 1: X% = 80: Y% = 9
  1613.     IF Mode = 1 THEN
  1614.        Clr% = GrAttrib%(0, 3): Box% = 0
  1615.     ELSE
  1616.        Clr% = GrAttrib%(1, -1): Box% = 1
  1617.     END IF
  1618.     DO
  1619.         LINE (X%, Y%)-(X% + 20, Y% + 20), Box%, B
  1620.         IF Mode = 2 THEN
  1621.            GraPrint ((X% * 2) + 8), (Y% * 1.4) + 3, MID$(Me$, I%, 1), Clr%, 3
  1622.         ELSEIF Mode = 3 THEN
  1623.            GraPrint ((X% * 2) + 8), (Y% * 2.4) + 3, MID$(Me$, I%, 1), Clr%, 3
  1624.         ELSE
  1625.            GraPrint X% + 3, Y% + 3, MID$(Me$, I%, 1), Clr%, 2
  1626.         END IF
  1627.         I% = I% + 1: X% = X% + 20
  1628.     LOOP UNTIL I% > 8
  1629.     Me$ = "CHARACTERS": I% = 1: X% = 78: Y% = 32
  1630.     IF Mode = 1 THEN
  1631.        Clr% = GrAttrib%(2, 1)
  1632.     ELSE
  1633.        Clr% = GrAttrib%(7, -1)
  1634.     END IF
  1635.     DO
  1636.         IF Mode = 2 THEN
  1637.            GraPrint ((X% * 2) + 8), (Y% * 1.6) + 3, MID$(Me$, I%, 1), Clr%, 3
  1638.         ELSEIF Mode = 3 THEN
  1639.            GraPrint ((X% * 2) + 9), (Y% * 2.4) + 3, MID$(Me$, I%, 1), Clr%, 3
  1640.         ELSE
  1641.            GraPrint X% + 5, Y% + 3, MID$(Me$, I%, 1), Clr%, 2
  1642.         END IF
  1643.         I% = I% + 1: X% = X% + 16
  1644.     LOOP UNTIL I% > 10
  1645.     IF Mode = 1 THEN
  1646.        LINE (5, 60)-(175, 145), 0, BF: LINE (4, 59)-(176, 146), 3, B
  1647.     END IF
  1648.     I% = 1: READ Count%
  1649.     DO
  1650.         READ X%, Y%, Me$, Fore%, Back%, Scale%
  1651.         IF Mode = 2 THEN
  1652.            GraPrint X% * 2, (Y% * 1.6), Me$, GrAttrib%(Fore%, -1), Scale%
  1653.         ELSEIF Mode = 3 THEN
  1654.            GraPrint X% * 2, (Y% * 2) + 30, Me$, GrAttrib%(Fore%, -1), Scale%
  1655.         ELSE
  1656.            GraPrint X%, Y%, Me$, GrAttrib%(Fore%, Back%), Scale%
  1657.         END IF
  1658.         I% = I% + 1
  1659.     LOOP UNTIL I% > Count%
  1660.     I% = 1: READ Count%
  1661.     DO
  1662.         READ X%, Y%, Me$, Fore%, Back%, Scale%
  1663.         IF Mode = 2 THEN
  1664.            GraPrint X% * 3, (Y% * 1.4), Me$, GrAttrib%(Fore%, -1), Scale%
  1665.         ELSEIF Mode = 3 THEN
  1666.            GraPrint X% * 3, Y% * 1.92, Me$, GrAttrib%(Fore%, -1), Scale%
  1667.         ELSE
  1668.            GraPrint X%, Y%, Me$, GrAttrib%(Fore%, Back%), Scale%
  1669.         END IF
  1670.         I% = I% + 1
  1671.     LOOP UNTIL I% > Count%
  1672.     PLAY "mft255ef#gdef#gef#g#aef#g#ag#abo4co3bo4cdeco3af#gdgbt120g"
  1673.     I% = 1: READ Count%
  1674.     DO
  1675.         READ X%, Y%, Me$, Fore%, Back%, Scale%
  1676.         IF Mode = 2 THEN
  1677.            GraPrint X% * 2, Y% * 1.6, Me$, GrAttrib%(Fore%, -1), 2
  1678.         ELSEIF Mode = 3 THEN
  1679.            GraPrint X% * 2, Y% * 2.2, Me$, GrAttrib%(Fore%, -1), 2
  1680.         ELSE
  1681.            GraPrint X%, Y%, Me$, GrAttrib%(Fore%, Back%), Scale%
  1682.         END IF
  1683.         I% = I% + 1
  1684.     LOOP UNTIL I% > Count%
  1685.     DO: LOOP UNTIL KeyIn% = 32
  1686.     SCREEN 0: WIDTH 80
  1687. GOTO D001
  1688.  
  1689. '┌────────────────────────────────────────────────────────────────────────┐
  1690. '│      Video Panning.                                                    │
  1691. '└────────────────────────────────────────────────────────────────────────┘
  1692. '
  1693. D720:
  1694.     IF (MaxRes% = 13 AND VideoRam% > 64) OR MaxRes% > 9 THEN
  1695.        SCREEN 9: LINE (0, 0)-(639, 349), 9, BF
  1696.        VIEW SCREEN (40, 25)-(600, 325), 0, 15
  1697.        CIRCLE (319, 174), 150, 14: PAINT (319, 174), 14, 14
  1698.        X% = 0: Y% = 0
  1699.        DO
  1700.           KeyPress% = KeyIn%: Pan% = TRUE
  1701.           SELECT CASE KeyPress%
  1702.               CASE -75
  1703.                    IF X% > 0 THEN X% = X% - 1
  1704.               CASE -77
  1705.                    IF X% < 79 THEN X% = X% + 1
  1706.               CASE -72
  1707.                    IF Y% > 0 THEN Y% = Y% - 1
  1708.               CASE -80
  1709.                    IF Y% < 22 THEN Y% = Y% + 1
  1710.               CASE ELSE
  1711.                    Pan% = FALSE
  1712.           END SELECT
  1713.           IF Pan% THEN VGAPan X%, Y% * 5
  1714.        LOOP UNTIL KeyPress% = 27
  1715.        SCREEN 0: WIDTH 80
  1716.     ELSE
  1717.        MisTake 9, "Incompatible Video Card!", 0, Mouse%
  1718.     END IF
  1719. GOTO D001
  1720.  
  1721. '┌────────────────────────────────────────────────────────────────────────┐
  1722. '│      Video Save and Restore.                                           │
  1723. '└────────────────────────────────────────────────────────────────────────┘
  1724. '
  1725. D730:
  1726.     SELECT CASE MaxRes%
  1727.         CASE 7
  1728.              xMax% = 319: yMax% = 199: SaveSize& = 32000
  1729.         CASE 8
  1730.              xMax% = 639: yMax% = 199: SaveSize& = 64000
  1731.         CASE 9, 10
  1732.              xMax% = 639: yMax% = 349: SaveSize& = 112000
  1733.         CASE 11, 12
  1734.              xMax% = 639: yMax% = 479: SaveSize& = 153600
  1735.         CASE 13
  1736.              IF VideoRam% > 64 THEN
  1737.                 xMax% = 639: yMax% = 479: SaveSize& = 153600
  1738.                 MaxRes% = 12
  1739.              ELSE
  1740.                 xMax% = 319: yMax% = 199: SaveSize& = 64000
  1741.              END IF
  1742.         CASE ELSE
  1743.              MisTake 9, "Incompatible Video Card!", 0, Mouse%
  1744.              GOTO D002
  1745.     END SELECT
  1746.     IF Choice% = 4 THEN
  1747.        IF FreeSpace&(0) > SaveSize& THEN
  1748.           SCREEN MaxRes%: RESTORE Escher
  1749.           LINE (0, 0)-(xMax%, yMax%), 6, BF
  1750.           VIEW (32, 4)-(xMax% - 32, yMax% - 4), 0, 5
  1751.           WINDOW SCREEN (0, 0)-(255, 191)
  1752.           FOR I% = 1 TO 40
  1753.               READ A%, B%, C%, D%: LINE (A%, B%)-(C%, D%), 1
  1754.           NEXT I%
  1755.           PAINT (56, 20), 1, 1: PAINT (136, 64), 1, 1
  1756.           PAINT (120, 80), 1, 1: PAINT (192, 88), 14, 1
  1757.           PAINT (76, 48), 14, 1: PAINT (124, 60), 14, 1
  1758.           PAINT (68, 12), 2, 1: PAINT (80, 84), 2, 1
  1759.           PAINT (92, 128), 2, 1: PAINT (36, 156), 12, 1
  1760.           PAINT (36, 168), 1, 1: PAINT (84, 178), 14, 1
  1761.           PAINT (88, 118), 12, 1: PAINT (144, 86), 12, 1
  1762.           VGASave "ESCHER.IMG": KeyPress% = KeyIn%
  1763.        ELSE
  1764.           MisTake 9, "Insufficient disk space!", 0, Mouse%
  1765.        END IF
  1766.     ELSE
  1767.        IF FileSize&("ESCHER.IMG") > 0 THEN
  1768.           SCREEN MaxRes%
  1769.           VGALoad "ESCHER.IMG"
  1770.           KeyPress% = KeyIn%
  1771.        ELSE
  1772.           MisTake 9, "Screen Image file not found!", 0, Mouse%
  1773.        END IF
  1774.     END IF
  1775.     SCREEN 0: WIDTH 80
  1776. GOTO D001
  1777.  
  1778. '┌────────────────────────────────────────────────────────────────────────┐
  1779. '│      Program Exit.                                                     │
  1780. '└────────────────────────────────────────────────────────────────────────┘
  1781. '
  1782. D800:
  1783.     Menu$(0) = "ED#A"
  1784.     Menu$(1) = "&Exit program"
  1785.     Menu$(2) = "&DOS shell"
  1786.     Menu$(4) = "&About DEMON"
  1787.     VerMenu 4, 59, BarColour%, 1, 4, "EXIT", Menu$(),_
  1788.             Choice%, Nxt%, Bar%, 1, RootName$, Mouse%, HotKeys%
  1789.     IF Nxt% THEN GOTO D002
  1790.     SELECT CASE Choice%
  1791.         CASE 1
  1792.              GOTO D810
  1793.         CASE 2
  1794.              GOTO D820
  1795.         CASE 4
  1796.              PopUp 9, 14, 9, 53, BarColour%, 4, 4, -1
  1797.              FastPrint 9, 35, " D E M O N ", BarColour%
  1798.              RESTORE About
  1799.              READ Me$: FastPrint 11, 40 - (LEN(Me$) \ 2), Me$, BarColour%
  1800.              READ Me$: FastPrint 12, 40 - (LEN(Me$) \ 2), Me$, BarColour%
  1801.              READ Me$: FastPrint 13, 40 - (LEN(Me$) \ 2), Me$, BarColour%
  1802.              FastPrint 14, 34, "┌──────────╖", BarColour%
  1803.              FastPrint 15, 34, "│    OK    ║", BarColour%
  1804.              FastPrint 16, 34, "╘══════════╝", BarColour%
  1805.              FastPrint 15, 38, " OK ", 14: Ky% = FALSE
  1806.              IF Mouse% THEN
  1807.                 xHot% = 37 * 8: yHot% = 13 * 8
  1808.                 CALL MouseShow
  1809.              END IF
  1810.              DO
  1811.                 IF KeyStat% THEN
  1812.                    Ky% = KeyIn%
  1813.                 ELSEIF Mouse% THEN
  1814.                    MouseNow LeftButton%, RightButton%, xMouse%, yMouse%
  1815.                    IF LeftButton% THEN
  1816.                       IF yMouse% > yHot% AND yMouse% < yHot% + 16 THEN
  1817.                          IF xMouse% > xHot% AND xMouse% < xHot% + 48 THEN
  1818.                             Ky% = 13
  1819.                          END IF
  1820.                       END IF
  1821.                       DO
  1822.                           MouseNow LeftButton%, RightButton%, xMouse%, yMouse%
  1823.                       LOOP WHILE LeftButton%
  1824.                    END IF
  1825.                 END IF
  1826.              LOOP UNTIL Ky% = 13
  1827.              IF Mouse% THEN MouseHide
  1828.              ShutUp -1
  1829.         CASE ELSE
  1830.     END SELECT
  1831. GOTO D002
  1832.  
  1833. '   Program Exit
  1834. '
  1835. D810:
  1836.     IF Colour% THEN
  1837.        Scroll 1, 1, 1, 25, 80, 0, Attribute%(15, 1)
  1838.        COLOR , , 1: Attrib% = 32
  1839.     ELSE
  1840.        FOR I% = 1 TO 24
  1841.            FastPrint I%, 1, STRING$(80, "░"), 7
  1842.        NEXT I%
  1843.        Attrib% = 112
  1844.     END IF
  1845.     PopUp 3, 2, 9, 44, Attrib%, 3, 2, -1: RESTORE Credits
  1846.     FOR I% = 4 TO 9
  1847.         READ Me$: FastPrint I%, 4, Me$, Attrib%
  1848.     NEXT I%
  1849.     SLEEP 5: KeyFlush
  1850.     IF Colour% THEN Attrib% = 48 ELSE Attrib% = 112
  1851.     PopUp 10, 29, 11, 50, Attrib%, 2, 1, -1
  1852.     FOR I% = 11 TO 19
  1853.         READ Me$: FastPrint I%, 31, Me$, Attrib%
  1854.     NEXT I%
  1855.     SLEEP 10: ShutUp -1: SLEEP 1: ShutUp -1: SLEEP 1
  1856.     CALL KeyFlush: CLS
  1857. GOTO Egress
  1858.  
  1859. '┌────────────────────────────────────────────────────────────────────────┐
  1860. '│      Operating System Shell.                                           │
  1861. '└────────────────────────────────────────────────────────────────────────┘
  1862. '
  1863. D820:
  1864.     FastPrint 21, 2, SPACE$(78), 31
  1865.     Me$ = "Enter the command 'EXIT' when you are ready to return."
  1866.     FastPrint 21, 40 - (LEN(Me$) \ 2), Me$, 31
  1867.     LOCATE 13, 1, 1: ON ERROR GOTO D821
  1868.     PopUp 5, 4, 15, 74, 15, 3, 0, -1
  1869.     DOSBox 1, 6, 5, 18, 75, 7
  1870.     SHELL
  1871.     DOSBox 0, 0, 0, 0, 0, 0
  1872.     LOCATE 3, 1, 0: ShutUp -1
  1873.     FastPrint 21, 2, SPACE$(78), TextColour%
  1874.     ON ERROR GOTO Trap
  1875.     GOTO D800
  1876. D821:
  1877.     ON ERROR GOTO Trap
  1878.     DOSBox 0, 0, 0, 0, 0, 0
  1879.     LOCATE 3, 1, 0: ShutUp -1
  1880.     FastPrint 21, 2, SPACE$(78), TextColour%
  1881.     IF ERR = 5 THEN
  1882.        MisTake 9, "Cannot load secondary Command Processor", 0, Mouse%
  1883.        RESUME D800
  1884.     END IF
  1885.  
  1886. '┌────────────────────────────────────────────────────────────────────────┐
  1887. '│      Error Trap.                                                       │
  1888. '└────────────────────────────────────────────────────────────────────────┘
  1889. '
  1890. Trap:
  1891.     Fatal% = TRUE
  1892.     SELECT CASE ERR
  1893.         CASE 7, 14
  1894.              Me$ = "Out of memory"
  1895.         CASE 27
  1896.              Me$ = "PRINTER NOT READY": Fatal% = FALSE
  1897.         CASE 61, 67
  1898.              Me$ = "Out of disk space"
  1899.         CASE 71
  1900.              Me$ = "DISK DRIVE NOT READY": Fatal% = FALSE
  1901.         CASE 72
  1902.              Me$ = "Disk media error"
  1903.         CASE ELSE
  1904.              A$ = STR$(ERR): Me$ = "A type" + A$ + " Error has just occurred"
  1905.     END SELECT
  1906.     IF Fatal% THEN
  1907.        Me$ = Me$ + ", aborting to DOS ..."
  1908.        SL% = StatusLine%(Me$)
  1909.        RESUME Egress
  1910.     ELSE
  1911.        ML% = LEN(Me$): MT% = 40 - (ML% \ 2)
  1912.        IF Colour% THEN Attrib% = 78 ELSE Attrib% = 112
  1913.        PopUp 9, 20, 7, 42, Attrib%, 3, 2, -1
  1914.        FastPrint 10, MT%, Me$, Attrib% + 128: BEEP
  1915.        Me$ = "Please correct this error if possible"
  1916.        FastPrint 12, 22, Me$, Attrib%
  1917.        FastPrint 13, 30, "Press a key when ready", Attrib%
  1918.        FastPrint 14, 32, "or <ESC> to Abort.", Attrib%
  1919.        Character% = KeyIn%: ShutUp -1
  1920.        IF Character% = 27 THEN RESUME Egress
  1921.        RESUME
  1922.     END IF
  1923. Egress:
  1924.     Attr% = SCREEN(20, 1, 1)
  1925.     Curtains 25, 255: Curtains 25, 31: Curtains 25, Attr%
  1926.     LOCATE 20, 1, 1: ClearEnd 1, Attr%
  1927. END
  1928.  
  1929. '┌────────────────────────────────────────────────────────────────────────┐
  1930. '│     Program specific functions and procedures.                         │
  1931. '└────────────────────────────────────────────────────────────────────────┘
  1932. '
  1933. '   Draws or refreshes the main display screen. If switch is zero, only the
  1934. '   status line is refreshed.
  1935. '
  1936. SUB Frame (Title$, Switch%) STATIC
  1937.     SHARED StatColour%, HeadColour%, TextColour%, ToDay$
  1938.     IF Switch% THEN
  1939.        Scroll 1, 1, 1, 3, 80, 0, HeadColour%
  1940.        IF Title$ <> "" THEN
  1941.           FastPrint 1, 40 - (LEN(Title$) \ 2), Title$, HeadColour%
  1942.        END IF
  1943.        FastPrint 2, 1, STRING$(80, "─"), HeadColour%
  1944.        Panel 4, 1, 21, 80, 1, TextColour%
  1945.     END IF
  1946.     FastPrint 25, 1, SPACE$(80), StatColour%
  1947.     FastPrint 25, 4, "Press <F1> for Help, <ESC> to Abort", StatColour%
  1948.     IF ToDay$ <> "" THEN
  1949.        FastPrint 25, 78 - LEN(ToDay$), ToDay$, StatColour%
  1950.     END IF
  1951. END SUB
  1952.  
  1953. '┌────────────────────────────────────────────────────────────────────────┐
  1954. '│     Data Division.                                                     │
  1955. '└────────────────────────────────────────────────────────────────────────┘
  1956. '
  1957. Blurb:
  1958.     DATA "The Library modules on this disk provide you"
  1959.     DATA "with all the facilities necessary for you to"
  1960.     DATA "implement a full range of window features in"
  1961.     DATA "your programs.  With just one statement, for"
  1962.     DATA "instance, you can 'Pop-up' a window onto the"
  1963.     DATA "screen."
  1964.     DATA "The window can be a simple rectangle, in any"
  1965.     DATA "the QuickBASIC background colors, such as .."
  1966.     DATA "Alternatively it may have a border in one of"
  1967.     DATA "eight styles ...."
  1968.     DATA "The border itself may be in any one of the"
  1969.     DATA "QuickBASIC foreground colors. It can blink"
  1970.     DATA "if you want it to ..."
  1971.     DATA "The window, too, can be presented in several"
  1972.     DATA "different ways. It can be flat..."
  1973.     DATA "or it can have a black shadow underneath, to"
  1974.     DATA "give a three-dimensional effect..."
  1975.     DATA "Once you have a window on the screen, simply"
  1976.     DATA "use FASTPRINT, also in the TOOLBOX Library, "
  1977.     DATA "to put text into it, in any colour you like."
  1978.     DATA "You can also use the SCROLL routine from the"
  1979.     DATA "same source, to clear the window's contents."
  1980.     DATA "All the functions in the Library are written"
  1981.     DATA "in fast assembly language, but this does not"
  1982.     DATA "prevent them from being very easy to use."
  1983.     DATA "This for instance, is the call to create the"
  1984.     DATA "present window ....."
  1985.     DATA "   PopUp 8, 14, 8, 52, 112, 2, 0, -1"
  1986.     DATA "Before opening a window, the function stores"
  1987.     DATA "the screen beneath it in an internal buffer."
  1988.     DATA "When you close a window, the screen contents"
  1989.     DATA "are restored to their original location. Use"
  1990.     DATA "the statement 'ShutUp -1' to close the last"
  1991.     DATA "window opened.  For example ...."
  1992.     DATA "The Library includes several functions which"
  1993.     DATA "apply windowing techniques. The HELP screen,"
  1994.     DATA "which is available at the front menu, is one"
  1995.     DATA "example. Another is the VERIFY BOX which you"
  1996.     DATA "can use to collect a Yes/No response from an"
  1997.     DATA "operator, without redrawing the display."
  1998.     DATA "Another utility is the STATUS LINE MESSAGE,"
  1999.     DATA "which can be used to pause execution of the"
  2000.     DATA "program until the operator presses a key."
  2001.     DATA "You can display any prompt message you like"
  2002.     DATA "and the function will return the ASCII code"
  2003.     DATA "of the key which was pressed."
  2004.     DATA "I often use StatusLine in conjunction with a"
  2005.     DATA "routine which checks if the printer is ready"
  2006.     DATA "or not.  This gives the user a chance to fix"
  2007.     DATA "the printer,  if it is just out of paper, or"
  2008.     DATA "to abandon printing, if it is a more serious"
  2009.     DATA "problem. PrinTest is included here too."
  2010.  
  2011. Flags:
  2012.     DATA "The ASSEMBLY-LANGUAGE TOOLBOX includes a"
  2013.     DATA "pair  of functions which give you access"
  2014.     DATA "to  the  INTRA-APPLICATION COMMUNICATION"
  2015.     DATA "AREA (IAC),  an area of memory which has"
  2016.     DATA "been reserved,  by DOS, so that programs"
  2017.     DATA "can communicate with each other. The IAC"
  2018.     DATA "is 16 bytes long and is located,  in low"
  2019.     DATA "RAM at addresses 0000:04F0 - 04FF (Hex)."
  2020.     DATA "Once set, an IAC flag retains it's value"
  2021.     DATA "until  you reset it,  or the computer is"
  2022.     DATA "rebooted."
  2023.     DATA "Since QuickBASIC programs, compiled with"
  2024.     DATA "the /O switch to run stand-alone, cannot"
  2025.     DATA "pass variables to chain modules, you can"
  2026.     DATA "use  this feature to implement a limited"
  2027.     DATA "form of parameter passing."
  2028.     DATA "1.4F0h       9.4F8h", "2.4F1h      10.4F9h"
  2029.     DATA "3.4F2h      11.4FAh", "4.4F3h      12.4FBh"
  2030.     DATA "5.4F4h      13.4FCh", "6.4F5h      14.4FDh"
  2031.     DATA "7.4F6h      15.4FEh", "8.4F7h      16.4FFh"
  2032.     DATA 10, 59, 11, 59, 12, 59, 13, 59, 14, 59, 15, 59
  2033.     DATA 16, 59, 17, 59, 10, 72, 11, 72, 12, 72, 13, 72
  2034.     DATA 14, 72, 15, 72, 16, 72, 17, 72
  2035.  
  2036. Finder:
  2037.     DATA "This function allows you to find out if a particular"
  2038.     DATA "file is present on any disk drive in the system."," "
  2039.     DATA "Enter the name of the file which you want to locate,"
  2040.     DATA "including the drive letter and directory pathname if"
  2041.     DATA "required.  You can use an ambiguous name,  including"
  2042.     DATA "the wildcard characters (* and ?).  In this case the"
  2043.     DATA "function will pop up a directory window containing a"
  2044.     DATA "list of all files that match. You can select the one"
  2045.     DATA "you are interested in,  by high-lighting it with the"
  2046.     DATA "cursor arrow keys and pressing <RETURN>. The routine"
  2047.     DATA "returns a string containing the full pathname of the"
  2048.     DATA "file which you have selected."
  2049.  
  2050. Sorts:
  2051.     DATA "SORTFILE sorts ASCII text files. You supply the name, which may"
  2052.     DATA "include a directory pathname, and the start position and length"
  2053.     DATA "of the field which the file is to be sorted on.", " "
  2054.     DATA "The program first checks the size of the file and the amount of"
  2055.     DATA "free disk space to see if the it can be sorted in memory, this"
  2056.     DATA "requires space for two copies of the file on disk. If it is too"
  2057.     DATA "large, the file is sorted in place so that no extra disk space"
  2058.     DATA "is required. Using this method, which is far slower, the file"
  2059.     DATA "may be of any size up to 4 Gigabytes."
  2060.  
  2061. Size:
  2062.     DATA "THIS PROGRAM REPORTS THE SIZE OF FILES WHICH YOU SPECIFY"
  2063.     DATA "--------------------------------------------------------", " "
  2064.     DATA "The filename can include a directory path and may be ambiguous,"
  2065.     DATA "using the wildcard characters '*' and '?'. The program will"
  2066.     DATA "return the size of the file, in bytes, or, if more than one"
  2067.     DATA "match is found, the total size of all the files. If a size of"
  2068.     DATA "zero is returned, the file does not exist (at least not in the"
  2069.     DATA "directory specified).", " "
  2070.     DATA "Type in the pathname required (no more than 64 characters) or"
  2071.     DATA "Enter an empty string to quit."
  2072.  
  2073. KeyBuff:
  2074.     DATA 19, 6, 4, "Head Tail", 6, 33, "Keyboard Buffer"
  2075.     DATA  6, 67, "Buffer Area", 8, 4, "041A 041C"
  2076.     DATA  8, 17, "1E 20 22 24 26 28 2A 2C 2E 30 32 34 36 38 3A 3C"
  2077.     DATA  8, 68, "0480 0482", 10, 3, "┌────┬────┐"
  2078.     DATA 10, 16, "┌──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┐"
  2079.     DATA 10, 67, "┌────┬────┐",11, 3,"│         │", 11, 16, "│"
  2080.     DATA 11, 64, "│", 11, 67, "│         │", 12, 3, "└────┴────┘"
  2081.     DATA 12, 16, "└──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┘"
  2082.     DATA 12, 67, "└────┴────┘", 14, 3, "ASCII Codes"
  2083.     DATA 14, 67, "Waiting", 15, 3, "Scan Codes"
  2084.  
  2085. HWare:
  2086.     DATA "Unknown computer type", "PC", "PC/XT", "PCjr"
  2087.     DATA "PC/AT, PS/2 Model 50/60", "PC/XT", "PS/2 Model 30"
  2088.     DATA "PC Convertible", "PS/2 Model 80"
  2089.  
  2090. Shift:
  2091.     DATA "Left & Right SHIFT keys pressed", "CTRL key pressed"
  2092.     DATA "ALT key pressed", "SCROLL LOCK active"
  2093.     DATA "NUM LOCK active", "CAPS LOCK active"
  2094.     DATA "INSERT key status", "Left CTRL key pressed"
  2095.     DATA "Left ALT key pressed", "SYS REQ key pressed"
  2096.     DATA "PAUSE (or CTRL-NUM LOCK) active", "SCROLL LOCK pressed"
  2097.     DATA "NUM LOCK pressed", "CAPS LOCK pressed"
  2098.     DATA "INSERT key pressed"
  2099.  
  2100. Numbers:
  2101.     DATA 8, 1, 125678, 125678, 158, 158, 158, 158, 123458, 123458
  2102.     DATA 8, 4, 1278, 1278, 18, 148, 148, 148, F, 1235678
  2103.     DATA 8, 5, 12345, 12345, 5, 5, 45678, 45678, 5, 5
  2104.     DATA 8, 6, 12348, 12348, 148, 148, 148, 148, 145678, 145678
  2105.  
  2106. Crypt:
  2107.     DATA "This routine requires that you supply two strings of
  2108.     DATA "characters. The first is the text to be encrypted, and"
  2109.     DATA "the second is one or more keywords which are used to"
  2110.     DATA "encipher the text. Thereafter, the text cannot be"
  2111.     DATA "decrypted until you supply the same key string again."
  2112.  
  2113. Strings:
  2114.     DATA "Building a 1000 element, variable-length, string array"
  2115.     DATA "in memory and filling it with random data .... "
  2116.     DATA "Sort into Ascending or Descending order (A/D) [ ]"
  2117.  
  2118. Path:
  2119.     DATA "By default, the Toolbox Help system looks for its'"
  2120.     DATA "topic files in a subdirectory called HELP, beneath"
  2121.     DATA "the currently-logged directory.  You can, however,"
  2122.     DATA "direct it to look elsewhere for files by setting a"
  2123.     DATA "HELP variable in the DOS environment table;",""
  2124.     DATA "e.g.  SET HELP=C:\BASIC\TOOLBOX\HELP",""
  2125.     DATA "Alternatively, you can use the QuickBASIC ENVIRON"
  2126.     DATA "statement within your program, to point HELPMATE to"
  2127.     DATA "the appropriate pathname. Remember, 'though, that"
  2128.     DATA "this method only remains in effect as long as the"
  2129.     DATA "current program is running."
  2130.     DATA "The current HELP environment pathname is"
  2131.     DATA "Enter replacement or press <Esc> to leave unchanged"
  2132.  
  2133. Title:
  2134.     DATA 1, 2, 2, 2, 29, 0, 92, 23, 95
  2135.     DATA 64, 98, 104, 101, 135, 103, 102, 106, 65, 112, 30, 115
  2136.     DATA 10, 119, 5, 122, 3, 125, 5, 128, 10, 131, 30, 136, 65, 142
  2137.     DATA 221, 165, 320, 165, 320, 156, 35, 125, 27, 122, 35, 119
  2138.     DATA 65, 112, 102, 106, 135, 103, 149, 102, 162, 101, 195, 98
  2139.     DATA 240, 92, 272, 90, 304, 92, 320, 94
  2140.     DATA 0, 6, 6, 167, 8, 320, 94, 304, 92
  2141.     DATA 272, 90, 240, 92, 195, 98, 162, 101, 149, 102, 135, 103
  2142.     DATA 102, 106, 82, 109
  2143.     DATA 3, 7, 7, 90, 6, 220, 85, 220, 98
  2144.     DATA 300, 98, 300, 86, 305, 86, 260, 73, 215, 86, 220, 86
  2145.     DATA 0, 6, 6, 167
  2146.  
  2147.     DATA 6
  2148.     DATA 15, 65, "Toolbox Users", 15, -1, 1
  2149.     DATA 15, 75, "register now at...", 15, -1, 1
  2150.     DATA 15, 95, "Club-PC BBS", 15, -1, 1
  2151.     DATA 15, 105, "1217 Crescent Drive", 15, -1, 1
  2152.     DATA 15, 115, "Smithfield VA 23430", 15, -1, 1
  2153.     DATA 15, 134, "Tel. (804) 357-0357", 15, -1, 1
  2154.     DATA 2
  2155.     DATA 8, 172, "for TOOLBOX support", 14, 0, 2
  2156.     DATA 8, 172, "    TOOLBOX", 13, -1, 2
  2157.     DATA 2
  2158.     DATA 39, 192, "Press the SPACE BAR to continue", 11, 0, 1
  2159.     DATA 39, 192, "          SPACE BAR", 15, -1, 1
  2160.  
  2161. Escher:
  2162.     DATA 68,4,200,76,52,12,112,44,128,52,172,76,128,52,68,84,112,44,84,60
  2163.     DATA 128,68,99,84,68,36,97,52,128,68,154,84,128,68,128,116,128,52,128
  2164.     DATA 68,68,4,52,12,172,76,142,90,142,76,142,108,142,108,200,76,200,76
  2165.     DATA 200,92,200,92,68,164,128,116,84,140,52,12,52,154,52,154,68,164
  2166.     DATA 68,164,68,100,68,36,68,84,84,45,84,76,84,109,84,140,68,100,97,116
  2167.     DATA 84,124,112,108,68,84,128,116,84,76,112,92,112,77,112,108,84,119
  2168.     DATA 92,114,142,86,151,82,180,66,186,62,186,62,236,90,236,90,68,184
  2169.     DATA 68,184,16,154,16,154,52,133,16,154,16,160,16,160,68,190,68,190
  2170.     DATA 68,184,68,190,236,96,236,96,236,90
  2171.  
  2172. About:
  2173.     DATA "Assembly-Language Toolbox demonstration program"
  2174.     DATA "(c)1988 Christy Gemmell and Singular Software"
  2175.     DATA "Release 5.53 - March 1993"
  2176.  
  2177. Credits:
  2178.     DATA "   The Assembly-Language Toolbox for   "
  2179.     DATA "          Microsoft QuickBASIC         "
  2180.     DATA "    Professional Edition, Release 5    "
  2181.     DATA "                                       "
  2182.     DATA " is also available for BASIC 7 PDS and "
  2183.     DATA "          Visual BASIC for DOS         "
  2184.  
  2185.     DATA "The Professional Edition contains source code,"
  2186.     DATA "object files, stand-alone and Quick libraries"
  2187.     DATA "and a complete set of documentation. To order"
  2188.     DATA "To order, contact:    James J. Kreyling"
  2189.     DATA "                      CPC Consulting Company"
  2190.     DATA "                      1217 Crescent Drive,"
  2191.     DATA "                      Smithfield  VA 23430"
  2192.     DATA "        or through... Club-PC BBS (8-N-1)"
  2193.     DATA "Tel (804) 357-9190    BBS (804) 357-0357"
  2194.  
  2195. '┌────────────────────────────────────────────────────────────────────────┐
  2196. '│      (c) 1988,1993 By Christy Gemmell and Singular Software.           │
  2197. '└────────────────────────────────────────────────────────────────────────┘
  2198. 
  2199.